Metrics for Spherical law of cosines

start0.0ms (0%)

Memory: 0.1MiB live, 0.1MiB allocated; 0ms collecting garbage

analyze906.0ms (5.9%)

Memory

46.7MiB live, 1 298.3MiB allocated; 203ms collecting garbage

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
1.6%	1.6%	98.2%	0.2%	0%	0%	0%	11
1.6%	1.6%	98.2%	0.2%	0%	0%	0%	12

Compiler

Compiled 21 to 19 computations (9.5% saved)

sample4.4s (28.5%)

Memory

82.7MiB live, 5 247.1MiB allocated; 639ms collecting garbage

Samples

3.3s	6 412×	1	valid
345.0ms	1 706×	0	valid
78.0ms	110×	2	valid
44.0ms	28×	3	valid

Precisions

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

ival-cos: 1.4s (39.5% of total)

ival-sin: 789.0ms (23% of total)

adjust: 402.0ms (11.7% of total)

ival-mult: 376.0ms (11% of total)

ival-acos: 328.0ms (9.6% of total)

ival-sub: 95.0ms (2.8% of total)

ival-add: 70.0ms (2% of total)

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

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

Bogosity

explain373.0ms (2.4%)

Memory

11.0MiB live, 473.8MiB allocated; 70ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Example	Subexpression
68	121	(-3.5574322408071116e-284 -5.888878470208993e+242 1.2842492335098556e-276 -5.4598232978665446e-229 -1.905175580557952e+93)	-	`(cos.f64 (-.f64 lambda1 lambda2))`
17	2	(-4.6640559713678055e-5 1.9107144823544562e-203 -5.352140508249337e-283 1.2459320885979806e-305 -5.102955543098754e+253)	-	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
0	0	-	-	`lambda2`
0	0	-	-	`phi2`
0	0	-	-	`(*.f64 (cos.f64 phi1) (cos.f64 phi2))`
0	0	-	-	`(-.f64 lambda1 lambda2)`
0	0	-	-	`R`
0	0	-	-	`(sin.f64 phi1)`
0	0	-	-	`(cos.f64 phi2)`
0	0	-	-	`lambda1`
0	0	-	-	`(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))`
0	0	-	-	`(*.f64 (sin.f64 phi1) (sin.f64 phi2))`
0	0	-	-	`phi1`
0	0	-	-	`(sin.f64 phi2)`
0	0	-	-	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
0	0	-	-	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
0	0	-	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (-.f64 lambda1 lambda2))`	sensitivity	189	1
`acos.f64`	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`	sensitivity	19	2

Confusion

	Predicted +	Predicted -
+	84	0
-	122	50

Precision

0.4077669902912621

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	84	0	0
-	122	2	48

Precision?

0.40384615384615385

Recall?

1.0

Freqs

test

number	freq
0	50
1	204
2	2

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

226.0ms	402×	1	valid
25.0ms	106×	0	valid
2.0ms	4×	2	valid

Compiler

Compiled 207 to 55 computations (73.4% saved)

Precisions

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

ival-cos: 68.0ms (32.6% of total)

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

ival-mult: 35.0ms (16.8% of total)

adjust: 21.0ms (10.1% of total)

ival-sub: 19.0ms (9.1% of total)

ival-acos: 15.0ms (7.2% of total)

ival-add: 4.0ms (1.9% of total)

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

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

preprocess194.0ms (1.3%)

Memory

-33.0MiB live, 156.2MiB allocated; 31ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	130	412
1	346	408
2	745	408
3	1755	408
4	3844	408
0	17	19
0	29	19
1	54	19
2	102	19
3	242	19
4	546	19
5	1360	19
6	3599	19
7	6869	19
0	8113	18

Stop Event

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

Calls

Call 1

Inputs
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

(*.f64 R (acos.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))

Symmetry

(negabs R)

(sort phi1 phi2)

Compiler

Compiled 19 to 17 computations (10.5% saved)

eval0.0ms (0%)

Memory: 0.1MiB live, 0.1MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 5 computations (-∞% saved)

prune1.0ms (0%)

Memory

1.0MiB live, 1.0MiB allocated; 0ms collecting garbage

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	73.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Compiler

Compiled 19 to 17 computations (10.5% saved)

simplify149.0ms (1%)

Memory

23.9MiB live, 210.8MiB allocated; 33ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
cost-diff	0	(*.f64 (sin.f64 phi1) (sin.f64 phi2))
cost-diff	0	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
cost-diff	0	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
cost-diff	1	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	17	92
0	29	92
1	54	92
2	102	92
3	242	92
4	546	92
5	1360	92
6	3599	92
7	6869	92
0	8113	89

Stop Event

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

Calls

Call 1

Inputs
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi1)
phi1
(sin.f64 phi2)
phi2
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
R

Outputs
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 R (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(sin.f64 phi1)
phi1
(sin.f64 phi2)
phi2
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
R

localize140.0ms (0.9%)

Memory

24.0MiB live, 216.9MiB allocated; 12ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.23046875	(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
accuracy	0.25	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
accuracy	3.8395079002345125	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda1 lambda2))

Samples

104.0ms	201×	1	valid
11.0ms	53×	0	valid
1.0ms	2×	2	valid

Compiler

Compiled 94 to 19 computations (79.8% saved)

Precisions

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

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

ival-sin: 26.0ms (26.8% of total)

adjust: 12.0ms (12.4% of total)

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

ival-acos: 7.0ms (7.2% of total)

ival-sub: 2.0ms (2.1% of total)

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

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

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

series35.0ms (0.2%)

Memory

-1.7MiB live, 43.5MiB allocated; 3ms collecting garbage

Counts

6 → 64

Calls

Call 1

Inputs
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(cos.f64 (-.f64 lambda1 lambda2))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))

Outputs
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))

Calls

15 calls:

Time	Variable		Point	Expression
5.0ms	phi2	@	-inf	((+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin phi1) (sin phi2)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
3.0ms	lambda2	@	inf	((+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin phi1) (sin phi2)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
3.0ms	lambda1	@	inf	((+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin phi1) (sin phi2)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
3.0ms	phi2	@	inf	((+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin phi1) (sin phi2)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
2.0ms	lambda1	@	-inf	((+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin phi1) (sin phi2)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))

simplify746.0ms (4.9%)

Memory

-107.3MiB live, 283.0MiB allocated; 1.0s collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	287	2043
1	910	1968
2	3630	1868
0	8143	1758

Stop Event

1×	iter limit
1×	node limit

Counts

64 → 64

Calls

Call 1

Inputs
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))

Outputs
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (sin.f64 lambda2) (fma.f64 (fma.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda1) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (sin.f64 lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (sin.f64 lambda2) (.f64 (fma.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda1) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 lambda2 lambda2) (.f64 (cos.f64 phi1) (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (cos.f64 phi2)))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 lambda1) lambda2) #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (sin.f64 lambda1)) lambda2 (cos.f64 lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1))) lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (.f64 lambda2 lambda2) (.f64 (cos.f64 phi1) (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (cos.f64 phi2)))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) phi1 (sin.f64 phi2)) phi1 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) phi1 #s(literal 1 binary64)) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1) #s(literal -1/6 binary64))) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/6 binary64) phi1) #s(literal 1 binary64)) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1) #s(literal 1/120 binary64))))) phi1))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (+.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (.f64 (sin.f64 phi1) phi2) #s(literal -1/6 binary64))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) phi2))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) (fma.f64 (pow.f64 phi2 #s(literal 3 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64))) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/6 binary64) phi2) #s(literal 1 binary64)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))))) phi2))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (+.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (.f64 phi2 phi2) (.f64 (*.f64 phi2 phi2) #s(literal 1/24 binary64))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))))))

rewrite181.0ms (1.2%)

Memory

14.9MiB live, 198.8MiB allocated; 42ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	17	71
0	29	71
1	96	71
2	754	71
0	8186	68

Stop Event

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

Counts

6 → 185

Calls

Call 1

Inputs
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(cos.f64 (-.f64 lambda1 lambda2))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))

Outputs
(/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (fma.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1)))))))
(/.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
(/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -2 binary64) (.f64 #s(literal 2 binary64) (neg.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64) (.f64 #s(literal 2 binary64) (neg.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64) (.f64 #s(literal -2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal -4 binary64))
(/.f64 (fma.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64) (.f64 #s(literal -2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))))) (/.f64 (pow.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 R (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(/.f64 (-.f64 (.f64 (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64))) (.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(/.f64 (-.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)) (fma.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (neg.f64 (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(fma.f64 (cos.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (.f64 (sin.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(fma.f64 (cos.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))) (.f64 (sin.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(fma.f64 (sin.f64 (neg.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(sin.f64 (+.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda2 lambda1))) (/.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda2 lambda1))))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2)))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))) (.f64 (sin.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(+.f64 (.f64 (cos.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))))) (.f64 (sin.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))))))
(+.f64 (.f64 (sin.f64 (neg.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal -2 binary64))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1))))) (.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1)))) (.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2))))) (.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (-.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) (*.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (-.f64 (fma.f64 (neg.f64 (sin.f64 phi1)) (neg.f64 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2))))) (*.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 phi1))) (cos.f64 (-.f64 phi2 (neg.f64 phi1))))) (.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2)))) (.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (+.f64 (cos.f64 (+.f64 phi1 (neg.f64 phi2))) (cos.f64 (-.f64 phi1 (neg.f64 phi2))))) (.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1))))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1)))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2))))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (-.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (-.f64 (fma.f64 (neg.f64 (sin.f64 phi1)) (neg.f64 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2))))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 phi1))) (cos.f64 (-.f64 phi2 (neg.f64 phi1))))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2)))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (cos.f64 (+.f64 phi1 (neg.f64 phi2))) (cos.f64 (-.f64 phi1 (neg.f64 phi2))))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (.f64 (-.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (.f64 (-.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (.f64 (-.f64 (fma.f64 (neg.f64 (sin.f64 phi1)) (neg.f64 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (.f64 (-.f64 (fma.f64 (neg.f64 (sin.f64 phi1)) (neg.f64 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2)))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 phi1))) (cos.f64 (-.f64 phi2 (neg.f64 phi1)))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 phi1))) (cos.f64 (-.f64 phi2 (neg.f64 phi1)))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 (neg.f64 phi2))) (cos.f64 (-.f64 phi1 (neg.f64 phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 (neg.f64 phi2))) (cos.f64 (-.f64 phi1 (neg.f64 phi2)))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) (.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal -2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) #s(literal -2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) #s(literal 2 binary64)))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))

eval40.0ms (0.3%)

Memory: -7.1MiB live, 82.8MiB allocated; 7ms collecting garbage
Compiler: Compiled 11 308 to 1 459 computations (87.1% saved)

prune46.0ms (0.3%)

Memory

1.0MiB live, 101.2MiB allocated; 11ms collecting garbage

Pruning

37 alts after pruning (37 fresh and 0 done)

	Pruned	Kept	Total
New	202	37	239
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	203	37	240

Accuracy

94.0%

Counts

240 → 37

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.3%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	73.5%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	73.3%	(.f64 (-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))) R)
	73.4%	(.f64 (-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	73.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
	57.2%	(*.f64 (acos.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))) R)
	73.6%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	73.5%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
	73.5%	(.f64 (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))) R)
	73.5%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))) R)
	56.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) R)
	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
▶	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	73.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64))))))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
▶	36.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	49.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1)))))) R)
	36.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
▶	30.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
	39.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
	38.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
	30.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
	49.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	49.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	32.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	37.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	57.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	40.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
▶	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)

Compiler

Compiled 3 004 to 1 816 computations (39.5% saved)

simplify124.0ms (0.8%)

Memory

-26.6MiB live, 208.0MiB allocated; 16ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
cost-diff	0	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
cost-diff	2	(.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
cost-diff	29	(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
cost-diff	0	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
cost-diff	0	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
cost-diff	1	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
cost-diff	5	(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
cost-diff	0	(*.f64 (sin.f64 phi1) (sin.f64 phi2))
cost-diff	0	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))))
cost-diff	0	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
cost-diff	1	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
cost-diff	0	(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
cost-diff	0	(*.f64 (sin.f64 phi1) (sin.f64 phi2))
cost-diff	0	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
cost-diff	0	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
cost-diff	1	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	70	828
0	120	803
1	231	793
2	626	793
3	2363	709
4	6611	709
0	8003	694

Stop Event

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

Calls

Call 1

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

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

localize429.0ms (2.8%)

Memory

37.8MiB live, 937.9MiB allocated; 45ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.390625	(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
accuracy	0.40367128907376815	(.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
accuracy	3.8395079002345125	(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda2 lambda1))
accuracy	0.23046875	(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
accuracy	0.25	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
accuracy	3.8395079002345125	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
accuracy	41.49336182364401	(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
accuracy	0.25	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
accuracy	3.8395079002345125	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda2 lambda1))
accuracy	33.331737199019514	#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
accuracy	0.25	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda2 lambda1))
accuracy	27.691907891390375	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
accuracy	0.20703125	(*.f64 (sin.f64 phi1) (sin.f64 phi2))
accuracy	0.23046875	(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
accuracy	0.25	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
accuracy	3.8395079002345125	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))

Samples

318.0ms	202×	1	valid
30.0ms	52×	0	valid
5.0ms	2×	2	valid

Compiler

Compiled 753 to 62 computations (91.8% saved)

Precisions

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

ival-cos: 78.0ms (26.4% of total)

ival-sin: 59.0ms (20% of total)

ival-mult: 58.0ms (19.6% of total)

adjust: 37.0ms (12.5% of total)

ival-acos: 27.0ms (9.1% of total)

ival-add: 12.0ms (4.1% of total)

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

ival-div: 5.0ms (1.7% of total)

ival-neg: 4.0ms (1.4% of total)

ival-pow2: 4.0ms (1.4% of total)

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

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

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

exact: 0.0ms (0% of total)

series201.0ms (1.3%)

Memory

-7.4MiB live, 322.8MiB allocated; 30ms collecting garbage

Counts

23 → 214

Calls

Call 1

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

Outputs
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2)))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2)))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* 2 (* lambda1 (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))))) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* 2 (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))))) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* 2 (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))))))) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos lambda2)))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* -1/2 (* lambda1 (cos lambda2))) (* -1 (sin lambda2)))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))) (* -1 (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1))))))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (+ lambda2 (* -1 lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi1) (cos (neg lambda1))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi1) (sin (neg lambda1))))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* -2 (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (neg lambda1))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos (neg lambda1)) (* -1 (* lambda2 (sin (neg lambda1)))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos (neg lambda1)) (* lambda2 (- (* -1/2 (* lambda2 (cos (neg lambda1)))) (sin (neg lambda1)))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos (neg lambda1)) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (neg lambda1))) (* 1/6 (* lambda2 (sin (neg lambda1)))))) (sin (neg lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2)))))))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (neg (+ lambda1 (* -1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))

Calls

15 calls:

Time	Variable		Point	Expression
20.0ms	phi2	@	0	((+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (* (sin phi1) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (cos (- lambda2 lambda1)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))
17.0ms	lambda1	@	-inf	((+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (* (sin phi1) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (cos (- lambda2 lambda1)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))
16.0ms	phi1	@	0	((+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (* (sin phi1) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (cos (- lambda2 lambda1)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))
14.0ms	phi2	@	inf	((+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (* (sin phi1) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (cos (- lambda2 lambda1)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))
12.0ms	lambda2	@	0	((+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (* (sin phi1) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (cos (- lambda2 lambda1)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))

simplify204.0ms (1.3%)

Memory

36.9MiB live, 346.3MiB allocated; 36ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1080	12363
1	3468	11611
0	8250	11096

Stop Event

1×	iter limit
1×	node limit

Counts

214 → 214

Calls

Call 1

Inputs
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2)))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2)))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* 2 (* lambda1 (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))))) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* 2 (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))))) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* 2 (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))))))) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos lambda2)))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* -1/2 (* lambda1 (cos lambda2))) (* -1 (sin lambda2)))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))) (* -1 (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1))))))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (+ lambda2 (* -1 lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi1) (cos (neg lambda1))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi1) (sin (neg lambda1))))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* -2 (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (neg lambda1))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos (neg lambda1)) (* -1 (* lambda2 (sin (neg lambda1)))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos (neg lambda1)) (* lambda2 (- (* -1/2 (* lambda2 (cos (neg lambda1)))) (sin (neg lambda1)))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos (neg lambda1)) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (neg lambda1))) (* 1/6 (* lambda2 (sin (neg lambda1)))))) (sin (neg lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2)))))))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (neg (+ lambda1 (* -1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))

Outputs
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))) R))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda1 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (acos.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2))))) lambda1 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi1))) lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (sin.f64 lambda2) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (cos.f64 phi1))) lambda1 (.f64 (sin.f64 lambda2) (cos.f64 phi1))) lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (neg.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) #s(literal -1/2 binary64))) lambda1 (neg.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) lambda1 (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) lambda1)) lambda1 (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64)))) lambda1 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (-.f64 (/.f64 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (fma.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) lambda1 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) lambda1 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2)))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2)))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (-.f64 (fma.f64 (-.f64 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) #s(literal -4/3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (/.f64 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (fma.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) (fma.f64 (.f64 (cos.f64 lambda2) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 1/6 binary64))))) lambda1 (/.f64 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (fma.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) lambda1 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) lambda1 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* 2 (* lambda1 (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))))) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (fma.f64 (.f64 #s(literal 2 binary64) lambda1) (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* 2 (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))))) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (fma.f64 (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 lambda2)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 lambda1 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (fma.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) lambda1)))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* 2 (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))))))) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (fma.f64 (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 lambda2)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (fma.f64 (.f64 lambda1 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) #s(literal -4/3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda1)) lambda1 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda1 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos lambda2)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* -1/2 (* lambda1 (cos lambda2))) (* -1 (sin lambda2)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2)))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))) (* -1 (sin lambda2)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 lambda2) lambda1) #s(literal -1/6 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1 (sin.f64 lambda2)) lambda1 (cos.f64 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2))))) lambda1 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) lambda1 (.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) lambda1)) lambda1 (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda2 lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))) R))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (+ lambda2 (* -1 lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 phi1)) (neg.f64 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi1) (cos (neg lambda1))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (neg.f64 (sin.f64 lambda1)))) lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi1) (sin (neg lambda1))))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (neg.f64 (sin.f64 lambda1)) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda2) (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 lambda1))) lambda2)) lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) #s(literal -1/2 binary64))) lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)))) lambda2 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))) #s(literal 2 binary64)))) lambda2 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))) #s(literal 2 binary64) (fma.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda1) (neg.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda1))) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))))) lambda2 (.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda1))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))) #s(literal 2 binary64)))))) lambda2 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))) #s(literal 2 binary64) (fma.f64 (-.f64 (fma.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (.f64 #s(literal 4/3 binary64) (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda1))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda1) (neg.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda1))) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))))))) (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))))) lambda2 (/.f64 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda1) (neg.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda1))) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) lambda2 (.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda1))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))) #s(literal 2 binary64)))))) lambda2 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 phi2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* -2 (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (fma.f64 (.f64 #s(literal -2 binary64) lambda2) (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (fma.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda1) (neg.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) lambda2 (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (fma.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (fma.f64 (.f64 lambda2 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 4/3 binary64) (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda1) (neg.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda2)) lambda2 (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (neg lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos (neg lambda1)) (* -1 (* lambda2 (sin (neg lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1)))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos (neg lambda1)) (* lambda2 (- (* -1/2 (* lambda2 (cos (neg lambda1)))) (sin (neg lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (+ (cos (neg lambda1)) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (neg lambda1))) (* 1/6 (* lambda2 (sin (neg lambda1)))))) (sin (neg lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda2) (neg.f64 (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) lambda2) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)))) lambda2 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (.f64 (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))) R))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2)))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (neg (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) phi1 (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1) #s(literal -1/6 binary64))) (.f64 phi1 phi1) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/6 binary64) (sin.f64 phi2))) (.f64 phi1 phi1) (sin.f64 phi2)) phi1))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (.f64 (.f64 phi1 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2)) phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (*.f64 phi1 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1))))))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)) (sin.f64 phi2)) phi1 (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)))) phi1 (sin.f64 phi2)) phi1 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi2) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))) phi1 (sin.f64 phi2)) phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (fma.f64 (fma.f64 (neg.f64 (/.f64 (sin.f64 phi2) (cos.f64 phi2))) (/.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi2) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi2) #s(literal -1/3 binary64))) phi1 (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi2) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (/.f64 (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) phi1 (sin.f64 phi2)) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (.f64 (fma.f64 (neg.f64 phi1) phi1 #s(literal 1 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (fma.f64 (.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1) #s(literal -1 binary64))) (.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (fma.f64 (fma.f64 (neg.f64 phi1) phi1 #s(literal 1 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -2/45 binary64) (.f64 phi1 phi1) #s(literal 1/3 binary64))) (.f64 phi1 phi1)) (.f64 phi1 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (.f64 (.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)) (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) phi2 (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) phi2))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)) (sin.f64 phi1)) phi2))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 phi2 phi2) #s(literal -1/6 binary64))) (.f64 phi2 phi2) (sin.f64 phi1)) phi2))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi2 phi2) #s(literal 1/120 binary64))) (.f64 phi2 phi2) (.f64 #s(literal -1/6 binary64) (sin.f64 phi1))) (.f64 phi2 phi2) (sin.f64 phi1)) phi2))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (sin.f64 phi1)) phi2 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)) (sin.f64 phi1)) phi2 (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)))) phi2 (sin.f64 phi1)) phi2 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (fma.f64 (fma.f64 (neg.f64 (/.f64 (sin.f64 phi1) (cos.f64 phi1))) (/.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) #s(literal -1/3 binary64))) phi2 (/.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (.f64 (fma.f64 (neg.f64 phi2) phi2 #s(literal 1 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (fma.f64 (.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 #s(literal 1/3 binary64) (.f64 phi2 phi2) #s(literal -1 binary64))) (.f64 phi2 phi2) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))))
#s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (fma.f64 (fma.f64 (neg.f64 phi2) phi2 #s(literal 1 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 #s(literal -2/45 binary64) (.f64 phi2 phi2) #s(literal 1/3 binary64))) (.f64 phi2 phi2)) (.f64 phi2 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2) #s(literal 1/24 binary64))) (.f64 phi2 phi2))) (.f64 phi2 phi2) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2) #s(literal 1/24 binary64))) (.f64 phi2 phi2))) (.f64 phi2 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (.f64 (.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2) #s(literal 1/24 binary64))) (.f64 phi2 phi2))) (.f64 phi2 phi2) (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))

rewrite168.0ms (1.1%)

Memory

-27.0MiB live, 217.1MiB allocated; 59ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	70	562
0	120	407
1	457	406
0	3691	391

Stop Event

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

Counts

23 → 559

Calls

Call 1

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

Outputs
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (fma.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 4 binary64))) (.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 6 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 6 binary64))) (.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 4 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(neg.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (neg.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda2)) (sin.f64 lambda1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(+.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1))) #s(literal 1 binary64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64))) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))))
(/.f64 (.f64 (cos.f64 phi1) (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (.f64 (cos.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (-.f64 lambda1 lambda2))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (-.f64 lambda1 lambda2))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (-.f64 lambda1 lambda2))) phi1)) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (-.f64 lambda1 lambda2))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (neg.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (neg.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (neg.f64 (-.f64 lambda1 lambda2)))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (neg.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (-.f64 lambda1 lambda2)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (-.f64 lambda2 lambda1)) phi1)) (cos.f64 (-.f64 (neg.f64 (-.f64 lambda2 lambda1)) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 (-.f64 lambda1 lambda2)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) phi1)) (cos.f64 (-.f64 (neg.f64 (-.f64 lambda1 lambda2)) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (neg.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (neg.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (neg.f64 phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (neg.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 phi1 (neg.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (neg.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 (neg.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64))
(fma.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (cos.f64 phi1) (.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
(fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1)))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
(+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64))) (.f64 (cos.f64 phi1) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (/.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (-.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (-.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))) (/.f64 (pow.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))))
(-.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (-.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) #s(literal 3 binary64)) (fma.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (-.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))) R)
(.f64 R (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)))))))
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64))) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 lambda1)) (cos.f64 lambda2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (-.f64 lambda2 lambda1)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64) (*.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda2 lambda1)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (-.f64 lambda1 lambda2))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))
(-.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))
(-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)))
(+.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (fma.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 4 binary64))) (.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 6 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 6 binary64))) (.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 4 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(neg.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (neg.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda2)) (sin.f64 lambda1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(+.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (fma.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 4 binary64))) (.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 6 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 6 binary64))) (.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 4 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(neg.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (neg.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda2)) (sin.f64 lambda1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(+.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) (cos.f64 phi2))
(.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
(.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (pow.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) (*.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (cos.f64 phi1))
(.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) (*.f64 (cos.f64 phi2) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(.f64 (.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
(.f64 (neg.f64 (fabs.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) (neg.f64 (fabs.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (fabs.f64 (fabs.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) (fabs.f64 (fabs.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 1 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 1 binary64)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(.f64 (.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
(.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
(.f64 (pow.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))
(.f64 (fabs.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) (fabs.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))))
(.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
(.f64 (cos.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(pow.f64 (fabs.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))
(pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 2 binary64))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))))))
(neg.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))
(fabs.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) #s(literal 2 binary64)))
(+.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (cos.f64 phi1))
(.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)))
(.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) (cos.f64 phi2)) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi2)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2)) (cos.f64 lambda1) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda2)) (sin.f64 lambda1) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(+.f64 (.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64))) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 lambda1)) (cos.f64 lambda2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (-.f64 lambda2 lambda1)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64) (*.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda2 lambda1)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (-.f64 lambda1 lambda2))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))
(-.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))
(-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)))
(+.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))
(.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (cos.f64 phi1))
(.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)))
(.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) (cos.f64 phi2)) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi2)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2)) (cos.f64 lambda1) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda2)) (sin.f64 lambda1) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(+.f64 (.f64 (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))

eval104.0ms (0.7%)

Memory: 27.4MiB live, 261.1MiB allocated; 19ms collecting garbage
Compiler: Compiled 34 022 to 3 678 computations (89.2% saved)

prune78.0ms (0.5%)

Memory

-8.0MiB live, 231.9MiB allocated; 5ms collecting garbage

Pruning

62 alts after pruning (60 fresh and 2 done)

	Pruned	Kept	Total
New	598	49	647
Fresh	21	11	32
Picked	3	2	5
Done	0	0	0
Total	622	62	684

Accuracy

94.0%

Counts

684 → 62

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.3%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	44.8%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))) R)
	73.5%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	44.8%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
	73.3%	(.f64 (-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))) R)
	73.4%	(.f64 (-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	73.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	30.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)
	44.8%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	73.5%	(.f64 (acos.f64 (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
▶	93.7%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
	57.2%	(*.f64 (acos.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))) R)
	73.5%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
	37.3%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) #s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2)) (cos.f64 lambda1) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))) R)
	52.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) (cos.f64 phi2)) #s(literal 2 binary64)))) R)
✓	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))))) R)
	49.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))) R)
	54.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))) R)
	36.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
	22.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
	24.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
	39.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	20.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
	38.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	30.9%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
▶	54.2%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
▶	32.7%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	37.6%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	40.3%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
	47.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
	93.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	57.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	49.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
	54.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
	34.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	35.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	23.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
	25.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
	36.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
	30.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
	55.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R)
▶	49.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
	19.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
	35.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	45.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))))) R)
✓	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
	28.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	30.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
	35.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
	18.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	27.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Compiler

Compiled 5 608 to 3 509 computations (37.4% saved)

simplify109.0ms (0.7%)

Memory

11.0MiB live, 198.5MiB allocated; 8ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
cost-diff	0	(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
cost-diff	0	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
cost-diff	1	(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))
cost-diff	0	(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
cost-diff	0	(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
cost-diff	0	#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
cost-diff	0	(acos.f64 #s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
cost-diff	0	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
cost-diff	0	#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
cost-diff	0	(.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))
cost-diff	0	(acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
cost-diff	0	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
cost-diff	6	(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	70	766
0	114	751
1	245	745
2	688	745
3	2580	661
4	6430	661
0	8125	646

Stop Event

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

Calls

Call 1

Inputs
(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(sin.f64 lambda1)
lambda1
(sin.f64 lambda2)
lambda2
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(cos.f64 lambda1)
(cos.f64 lambda2)
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(sin.f64 phi2)
(sin.f64 phi1)
R
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
R
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(acos.f64 #s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 phi2)
phi2
(*.f64 (sin.f64 phi2) phi1)
(sin.f64 phi2)
phi1
R
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi2))
(cos.f64 lambda2)
lambda2
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(sin.f64 phi2)
(sin.f64 phi1)
R
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
(*.f64 (sin.f64 phi2) phi1)
(sin.f64 phi2)
phi2
phi1
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(sin.f64 lambda2)
lambda2
(sin.f64 lambda1)
lambda1
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
(cos.f64 lambda2)
(cos.f64 lambda1)
R

Outputs
(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 R (acos.f64 (fma.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (fma.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (sin.f64 lambda2))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(sin.f64 lambda1)
lambda1
(sin.f64 lambda2)
lambda2
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 lambda2))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
(cos.f64 lambda1)
(cos.f64 lambda2)
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi2)
(sin.f64 phi1)
R
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
R
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(acos.f64 #s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 phi2)
phi2
(*.f64 (sin.f64 phi2) phi1)
(sin.f64 phi2)
phi1
R
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi2))
(cos.f64 lambda2)
lambda2
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi2)
(sin.f64 phi1)
R
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)) (cos.f64 phi2) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
(acos.f64 (fma.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))
(fma.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
(*.f64 (sin.f64 phi2) phi1)
(sin.f64 phi2)
phi2
phi1
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(sin.f64 lambda2)
lambda2
(sin.f64 lambda1)
lambda1
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
(cos.f64 lambda2)
(cos.f64 lambda1)
R

localize483.0ms (3.2%)

Memory

-0.4MiB live, 768.6MiB allocated; 75ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.23046875	(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
accuracy	0.25	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
accuracy	3.8395079002345125	(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
accuracy	33.1847502792362	#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
accuracy	0.20703125	(*.f64 (sin.f64 phi2) (sin.f64 phi1))
accuracy	0.25	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
accuracy	30.593635987570668	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
accuracy	0.25	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
accuracy	3.8395079002345125	(acos.f64 #s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	32.429072057055706	#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	27.691907891390375	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
accuracy	30.49848478888796	#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
accuracy	0.20703125	(*.f64 (sin.f64 phi2) (sin.f64 phi1))
accuracy	0.20703125	(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
accuracy	0.25	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
accuracy	3.8395079002345125	(acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))

Samples

397.0ms	201×	1	valid
28.0ms	53×	0	valid
4.0ms	2×	2	valid

Compiler

Compiled 640 to 61 computations (90.5% saved)

Precisions

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

ival-mult: 131.0ms (34.9% of total)

ival-cos: 71.0ms (18.9% of total)

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

adjust: 36.0ms (9.6% of total)

ival-acos: 27.0ms (7.2% of total)

ival-add: 24.0ms (6.4% of total)

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

ival-pow2: 4.0ms (1.1% of total)

ival-div: 2.0ms (0.5% of total)

ival-neg: 2.0ms (0.5% of total)

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

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

series126.0ms (0.8%)

Memory

-18.0MiB live, 173.9MiB allocated; 13ms collecting garbage

Counts

24 → 203

Calls

Call 1

Inputs
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(acos.f64 #s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(cos.f64 (-.f64 lambda1 lambda2))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))

Outputs
#s(approx (* (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (cos phi2) (sin lambda2)))) (* (cos phi2) (sin lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi2) (sin lambda2))) (* 1/120 (* (pow lambda1 2) (* (cos phi2) (sin lambda2))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (cos phi2) (sin lambda2)))) (* 1/120 (* (cos phi2) (sin lambda2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2)))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2)))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (* (cos phi2) (sin lambda1)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* -1/6 (* (pow lambda2 2) (* (cos phi2) (sin lambda1)))) (* (cos phi2) (sin lambda1))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* (cos phi2) (sin lambda1)) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi2) (sin lambda1))) (* 1/120 (* (pow lambda2 2) (* (cos phi2) (sin lambda1))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* (cos phi2) (sin lambda1)) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi2) (sin lambda1))) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (* (cos phi2) (sin lambda1)))) (* 1/120 (* (cos phi2) (sin lambda1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi1) (cos (neg lambda1))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi1) (sin (neg lambda1))))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2)))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 (sin phi2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda2) (cos phi2)))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi2 (sin phi1)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* 1/24 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda2) (cos phi1)))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))

Calls

15 calls:

Time	Variable		Point	Expression
11.0ms	lambda2	@	-inf	((+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (* (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (* (sin phi1) (sin phi2)) (* (sin lambda1) (sin lambda2)) (* (sin phi2) (sin phi1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))
11.0ms	lambda1	@	inf	((+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (* (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (* (sin phi1) (sin phi2)) (* (sin lambda1) (sin lambda2)) (* (sin phi2) (sin phi1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))
10.0ms	phi1	@	-inf	((+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (* (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (* (sin phi1) (sin phi2)) (* (sin lambda1) (sin lambda2)) (* (sin phi2) (sin phi1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))
9.0ms	phi1	@	inf	((+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (* (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (* (sin phi1) (sin phi2)) (* (sin lambda1) (sin lambda2)) (* (sin phi2) (sin phi1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))
9.0ms	phi2	@	inf	((+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (* (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (* (sin phi1) (sin phi2)) (* (sin lambda1) (sin lambda2)) (* (sin phi2) (sin phi1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))

simplify185.0ms (1.2%)

Memory

19.2MiB live, 200.3MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1056	11136
1	3539	10596
0	8313	10081

Stop Event

1×	iter limit
1×	node limit

Counts

203 → 203

Calls

Call 1

Inputs
#s(approx (* (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (cos phi2) (sin lambda2)))) (* (cos phi2) (sin lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi2) (sin lambda2))) (* 1/120 (* (pow lambda1 2) (* (cos phi2) (sin lambda2))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (cos phi2) (sin lambda2)))) (* 1/120 (* (cos phi2) (sin lambda2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2)))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2)))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (* (cos phi2) (sin lambda1)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* -1/6 (* (pow lambda2 2) (* (cos phi2) (sin lambda1)))) (* (cos phi2) (sin lambda1))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* (cos phi2) (sin lambda1)) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi2) (sin lambda1))) (* 1/120 (* (pow lambda2 2) (* (cos phi2) (sin lambda1))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* (cos phi2) (sin lambda1)) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi2) (sin lambda1))) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (* (cos phi2) (sin lambda1)))) (* 1/120 (* (cos phi2) (sin lambda1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi1) (cos (neg lambda1))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi1) (sin (neg lambda1))))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2)))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 (sin phi2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda2) (cos phi2)))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi2 (sin phi1)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* 1/24 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda2) (cos phi1)))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))

Outputs
#s(approx (* (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda1 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (acos (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (acos.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 (.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2)))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (cos phi2) (sin lambda2)))) (* (cos phi2) (sin lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1) #s(literal 1 binary64)) (.f64 (sin.f64 lambda2) (cos.f64 phi2))) lambda1))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi2) (sin lambda2))) (* 1/120 (* (pow lambda1 2) (* (cos phi2) (sin lambda2))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 #s(literal 1/120 binary64) (.f64 lambda1 lambda1) #s(literal -1/6 binary64))) (.f64 lambda1 lambda1) (.f64 (sin.f64 lambda2) (cos.f64 phi2))) lambda1))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (cos phi2) (sin lambda2)))) (* 1/120 (* (cos phi2) (sin lambda2)))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi2)) (sin.f64 lambda2) (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 #s(literal -1/5040 binary64) (.f64 lambda1 lambda1) #s(literal 1/120 binary64))) (.f64 lambda1 lambda1))) (.f64 lambda1 lambda1) (*.f64 (sin.f64 lambda2) (cos.f64 phi2))) lambda1))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (neg.f64 (.f64 lambda1 (cos.f64 phi1))) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) lambda1 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda1)) lambda1 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi1))) lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (sin.f64 lambda2) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (cos.f64 phi1))) lambda1 (.f64 (sin.f64 lambda2) (cos.f64 phi1))) lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)))) lambda1 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (-.f64 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) lambda1 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) lambda1 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2)))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2)))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (-.f64 (fma.f64 (-.f64 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) #s(literal -4/3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) (fma.f64 (.f64 (cos.f64 lambda2) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))) #s(literal 1/6 binary64))))) lambda1 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) lambda1 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) lambda1 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) lambda1 (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1)) lambda1 (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda1 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (acos.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda2) lambda1))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 lambda1 lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)) lambda1))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 (fma.f64 (.f64 (sin.f64 lambda2) (fma.f64 #s(literal 1/120 binary64) (.f64 lambda1 lambda1) #s(literal -1/6 binary64))) (.f64 lambda1 lambda1) (sin.f64 lambda2)) lambda1))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1/5040 binary64) (.f64 lambda1 lambda1) #s(literal 1/120 binary64))) (.f64 lambda1 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2))) (.f64 lambda1 lambda1) (sin.f64 lambda2)) lambda1))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda1 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (* (cos phi2) (sin lambda1)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 (.f64 lambda2 (cos.f64 phi2)) (sin.f64 lambda1)))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* -1/6 (* (pow lambda2 2) (* (cos phi2) (sin lambda1)))) (* (cos phi2) (sin lambda1))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda2 lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* (cos phi2) (sin lambda1)) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi2) (sin lambda1))) (* 1/120 (* (pow lambda2 2) (* (cos phi2) (sin lambda1))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 #s(literal 1/120 binary64) (.f64 lambda2 lambda2) #s(literal -1/6 binary64))) (.f64 lambda2 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* (cos phi2) (sin lambda1)) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi2) (sin lambda1))) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (* (cos phi2) (sin lambda1)))) (* 1/120 (* (cos phi2) (sin lambda1)))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi2)) (sin.f64 lambda1) (.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 #s(literal -1/5040 binary64) (.f64 lambda2 lambda2) #s(literal 1/120 binary64))) (.f64 lambda2 lambda2))) (.f64 lambda2 lambda2) (*.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi1) (cos (neg lambda1))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi1))) lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi1) (sin (neg lambda1))))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda2) (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 lambda1))) lambda2 (.f64 (sin.f64 lambda1) (cos.f64 phi1))) lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)))) lambda2 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 2 binary64) (fma.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda1) (neg.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))) lambda2 (.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)))))) lambda2 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 2 binary64) (fma.f64 (-.f64 (fma.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (.f64 #s(literal 4/3 binary64) (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda1) (neg.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))) (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))) lambda2 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda1) (neg.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) lambda2 (.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)))))) lambda2 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (.f64 lambda2 (cos.f64 phi2)) (sin.f64 lambda1) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (cos.f64 phi2))) lambda2 (.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 lambda2 lambda2) #s(literal -1/2 binary64))) (.f64 lambda2 lambda2) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda2 lambda2) #s(literal 1/24 binary64))) (.f64 lambda2 lambda2))) (.f64 lambda2 lambda2) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda1) lambda2))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 lambda2 lambda2) #s(literal 1 binary64)) (sin.f64 lambda1)) lambda2))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 (fma.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (.f64 lambda2 lambda2) #s(literal -1/6 binary64))) (.f64 lambda2 lambda2) (sin.f64 lambda1)) lambda2))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1/5040 binary64) (.f64 lambda2 lambda2) #s(literal 1/120 binary64))) (.f64 lambda2 lambda2) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 lambda2 lambda2) (sin.f64 lambda1)) lambda2))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 lambda1) lambda2) #s(literal -1/6 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)) lambda2 (cos.f64 lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2)))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) phi1 (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 (sin phi2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) phi1 (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi2)) phi1 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/6 binary64))) phi1 (sin.f64 phi2)) phi1 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1)))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (*.f64 phi1 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1))))))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (*.f64 phi1 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi2) (.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))))) phi1 (sin.f64 phi2)) phi1 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (fma.f64 (fma.f64 (neg.f64 (/.f64 (sin.f64 phi2) (cos.f64 phi2))) (/.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi2) (.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) #s(literal -1/3 binary64))) phi1 (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi2) (.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) phi1 (sin.f64 phi2)) phi1 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda2) (cos phi2)))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (sin.f64 phi2)) phi1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 lambda2))) phi1 (sin.f64 phi2)) phi1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) phi1 (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi2) phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1) #s(literal -1/6 binary64))) (.f64 phi1 phi1) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/6 binary64) (sin.f64 phi2))) (.f64 phi1 phi1) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi2) phi1))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1) #s(literal -1/6 binary64))) (.f64 phi1 phi1) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/6 binary64) (sin.f64 phi2))) (.f64 phi1 phi1) (sin.f64 phi2)) phi1))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (neg.f64 phi1) (neg.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) phi2 (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1))))
#s(approx (+ (* (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi2 (sin phi1)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) phi2 (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* 1/24 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2) #s(literal 1/24 binary64))) (.f64 phi2 phi2))) (.f64 phi2 phi2) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (sin.f64 phi1)) phi2 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (.f64 (sin.f64 phi1) phi2) #s(literal -1/6 binary64))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (fma.f64 (fma.f64 (neg.f64 (/.f64 (sin.f64 phi1) (cos.f64 phi1))) (/.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi1) #s(literal -1/3 binary64))) phi2 (/.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 phi2 (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (-.f64 lambda2 lambda1)) phi1) phi2 (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (.f64 phi1 phi2) #s(literal -1/6 binary64))) phi2 phi1) phi2 (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda2) (cos phi1)))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (sin.f64 phi1)) phi2 (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (cos.f64 phi1))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)) (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) phi2 (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi1) phi2))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)) (sin.f64 phi1)) phi2))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 phi2 phi2) #s(literal -1/6 binary64))) (.f64 phi2 phi2) (sin.f64 phi1)) phi2))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi2 phi2) #s(literal 1/120 binary64))) (.f64 phi2 phi2) (.f64 #s(literal -1/6 binary64) (sin.f64 phi1))) (.f64 phi2 phi2) (sin.f64 phi1)) phi2))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi1) phi2))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)) (sin.f64 phi1)) phi2))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 phi2 phi2) #s(literal -1/6 binary64))) (.f64 phi2 phi2) (sin.f64 phi1)) phi2))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi2 phi2) #s(literal 1/120 binary64))) (.f64 phi2 phi2) (.f64 #s(literal -1/6 binary64) (sin.f64 phi1))) (.f64 phi2 phi2) (sin.f64 phi1)) phi2))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2) #s(literal 1/24 binary64))) (.f64 phi2 phi2))) (.f64 phi2 phi2) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1))))

rewrite183.0ms (1.2%)

Memory

17.8MiB live, 157.4MiB allocated; 16ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	70	623
0	114	536
1	465	470
2	4148	470
0	9248	455

Stop Event

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

Counts

24 → 357

Calls

Call 1

Inputs
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(acos.f64 #s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(cos.f64 (-.f64 lambda1 lambda2))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))

Outputs
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64))) (-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 4 binary64))) (.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 6 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 6 binary64))) (.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 4 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(neg.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda1)) (sin.f64 lambda2) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))
(fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))
(fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (cos.f64 lambda1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (sin.f64 lambda2)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (sin.f64 lambda2)) (cos.f64 phi1) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (sin.f64 lambda1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)) (-.f64 (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (neg.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (sin.f64 lambda2))))
(-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (sin.f64 lambda2))) (cos.f64 phi1)))
(-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(+.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(+.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 3 binary64)) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 R (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))) R)
(/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(-.f64 (PI.f64) (acos.f64 (/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (PI.f64) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (sin.f64 lambda2))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (sin.f64 lambda1))
(.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2)))
(.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda2 lambda1))) (cos.f64 phi2)) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi2) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))))
(/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (neg.f64 (*.f64 (sin.f64 phi2) phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi2) phi1) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi2) phi1) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) phi1))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) phi1))
(fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi2) phi1))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))
(-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (neg.f64 phi1) (sin.f64 phi2)))
(-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (neg.f64 (.f64 (sin.f64 phi2) phi1)))
(-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) phi1) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) phi1) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) phi1))
(+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))
(+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) (pow.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) (pow.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))))
(-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (neg.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2))) (cos.f64 phi1)))
(-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (neg.f64 (cos.f64 lambda2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) (pow.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(/.f64 (-.f64 (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (pow.f64 #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 2 binary64)) (.f64 (.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (pow.f64 #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda1)) (sin.f64 lambda2) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (cos.f64 phi1) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (sin.f64 lambda2)) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (sin.f64 lambda2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (cos.f64 phi2) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(fma.f64 (sin.f64 lambda1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(-.f64 (/.f64 (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 2 binary64)) (-.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))
(-.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(+.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(+.f64 (/.f64 (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (pow.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (pow.f64 #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 R (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))))
(/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)))
(*.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1 binary64))) (sinh.f64 (.f64 (log.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1)))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1))))))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda2 lambda1))) (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 lambda2)) (cos.f64 lambda1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda2 lambda1)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))
(-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))
(-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (cos.f64 phi1))
(.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)))
(.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) (cos.f64 phi2)) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (cos.f64 (-.f64 lambda1 (-.f64 lambda2 phi2))))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1))))))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) #s(literal 2 binary64)))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (cos.f64 lambda1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 lambda2)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (cos.f64 phi2) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (cos.f64 phi2) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))
(fma.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (neg.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 lambda2))) (cos.f64 phi1)))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 lambda2))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))

eval87.0ms (0.6%)

Memory: -8.5MiB live, 132.3MiB allocated; 25ms collecting garbage
Compiler: Compiled 31 177 to 3 005 computations (90.4% saved)

prune130.0ms (0.9%)

Memory

-9.0MiB live, 190.5MiB allocated; 62ms collecting garbage

Pruning

81 alts after pruning (79 fresh and 2 done)

	Pruned	Kept	Total
New	533	43	576
Fresh	19	36	55
Picked	5	0	5
Done	0	2	2
Total	557	81	638

Accuracy

94.3%

Counts

638 → 81

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.3%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	44.8%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))) R)
	44.8%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
	32.6%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))))) R)
	26.9%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
	73.3%	(.f64 (-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))) R)
	73.4%	(.f64 (-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	49.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
	32.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
	44.8%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	27.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	73.3%	(.f64 (-.f64 (PI.f64) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))) R)
	37.8%	(.f64 (acos.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
	73.5%	(.f64 (acos.f64 (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	54.2%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))) R)
▶	93.7%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))) R)
	57.2%	(*.f64 (acos.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))) R)
	93.6%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64))) (-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))) R)
	37.3%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) #s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
	93.5%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))) (pow.f64 (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))))))) R)
✓	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	49.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))) R)
	54.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))) R)
	36.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
	22.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
	24.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
	39.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	38.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	30.9%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
	54.2%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1))))) R)
	42.4%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) R)
	42.4%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) R)
	15.8%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	32.7%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
	37.6%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	19.5%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	21.4%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
▶	23.2%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	40.3%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
	32.8%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
	11.9%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
	47.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
▶	93.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	57.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	49.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))) R)
	54.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)))) R)
	34.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	35.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	23.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
	25.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
	36.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
	30.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
	55.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R)
	49.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	49.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	49.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))))) R)
	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
	35.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	45.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))))) R)
✓	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
▶	28.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	30.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
	35.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
	32.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	28.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	31.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1))))))))) R)
	25.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1)))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))))) R)
	18.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	16.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	16.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	13.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	16.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
▶	19.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

Compiler

Compiled 8 168 to 4 809 computations (41.1% saved)

simplify112.0ms (0.7%)

Memory

31.4MiB live, 120.3MiB allocated; 16ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
cost-diff	0	(.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
cost-diff	0	(fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
cost-diff	0	#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
cost-diff	0	(acos.f64 #s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
cost-diff	0	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
cost-diff	0	#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
cost-diff	0	(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1))
cost-diff	0	(acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))))
cost-diff	0	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))) R)
cost-diff	6	(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	88	957
0	133	932
1	276	902
2	742	902
3	2678	818
4	6519	818
0	8123	809

Stop Event

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

Calls

Call 1

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

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

localize535.0ms (3.5%)

Memory

4.7MiB live, 671.7MiB allocated; 95ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.20703125	(*.f64 (sin.f64 phi2) (sin.f64 phi1))
accuracy	0.20703125	(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
accuracy	0.25	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
accuracy	0.25	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1))))
accuracy	27.691907891390375	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))
accuracy	28.17382566961907	#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))
accuracy	0.25	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
accuracy	3.8395079002345125	(acos.f64 #s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
accuracy	26.00750518079989	#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
accuracy	32.429072057055706	#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
accuracy	26.00750518079989	#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
accuracy	27.691907891390375	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
accuracy	30.49848478888796	#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
accuracy	0.228847509768442	(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))
accuracy	0.25	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))) R)
accuracy	0.28515625	(.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))
accuracy	3.8395079002345125	(acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))))

Samples

411.0ms	202×	1	valid
31.0ms	52×	0	valid
4.0ms	2×	2	valid

Compiler

Compiled 682 to 74 computations (89.1% saved)

Precisions

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

ival-cos: 83.0ms (21.4% of total)

ival-mult: 79.0ms (20.4% of total)

ival-acos: 71.0ms (18.3% of total)

adjust: 53.0ms (13.7% of total)

ival-sin: 51.0ms (13.2% of total)

ival-add: 18.0ms (4.6% of total)

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

ival-sub: 10.0ms (2.6% of total)

ival-neg: 5.0ms (1.3% of total)

ival-pow2: 4.0ms (1% of total)

ival-pi: 2.0ms (0.5% of total)

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

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

exact: 0.0ms (0% of total)

series102.0ms (0.7%)

Memory

-10.4MiB live, 176.4MiB allocated; 11ms collecting garbage

Counts

25 → 224

Calls

Call 1

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

Outputs
#s(approx (* (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) R) #s(hole binary64 (* R (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) #s(hole binary64 (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2)))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2)))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (sin lambda2)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* 1/120 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (sin lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/120 (* (cos phi1) (* (cos phi2) (sin lambda2))))))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi1) (cos (neg lambda1))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi1) (sin (neg lambda1))))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* -1/6 (* (pow lambda2 2) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (sin lambda1)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* (cos phi1) (* (cos phi2) (sin lambda1))) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/120 (* (pow lambda2 2) (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* (cos phi1) (* (cos phi2) (sin lambda1))) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/120 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2)))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 (sin phi2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/24 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/24 (* (cos lambda1) (cos phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi2) (* (sin lambda1) (sin lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi2) (* (sin lambda1) (sin lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi2 (sin phi1)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* 1/24 (* (cos lambda1) (cos phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi1) (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi1) (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))

Calls

15 calls:

Time	Variable		Point	Expression
10.0ms	phi1	@	-inf	((+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) (* (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) R) (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) (* (* (cos phi1) (cos phi2)) (cos lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (cos (- lambda1 lambda2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (* (sin lambda2) (sin lambda1)) (* (sin phi2) (sin phi1)))
10.0ms	phi2	@	-inf	((+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) (* (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) R) (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) (* (* (cos phi1) (cos phi2)) (cos lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (cos (- lambda1 lambda2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (* (sin lambda2) (sin lambda1)) (* (sin phi2) (sin phi1)))
9.0ms	phi1	@	inf	((+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) (* (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) R) (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) (* (* (cos phi1) (cos phi2)) (cos lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (cos (- lambda1 lambda2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (* (sin lambda2) (sin lambda1)) (* (sin phi2) (sin phi1)))
9.0ms	lambda2	@	inf	((+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) (* (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) R) (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) (* (* (cos phi1) (cos phi2)) (cos lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (cos (- lambda1 lambda2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (* (sin lambda2) (sin lambda1)) (* (sin phi2) (sin phi1)))
8.0ms	phi2	@	inf	((+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) (* (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) R) (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) (* (* (cos phi1) (cos phi2)) (cos lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (cos (- lambda1 lambda2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (* (sin lambda2) (sin lambda1)) (* (sin phi2) (sin phi1)))

simplify180.0ms (1.2%)

Memory

41.5MiB live, 175.1MiB allocated; 11ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1163	12239
1	3894	11438
0	8320	10866

Stop Event

1×	iter limit
1×	node limit

Counts

224 → 224

Calls

Call 1

Inputs
#s(approx (* (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) R) #s(hole binary64 (* R (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) #s(hole binary64 (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2)))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2)))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (sin lambda2)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* 1/120 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (sin lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/120 (* (cos phi1) (* (cos phi2) (sin lambda2))))))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi1) (cos (neg lambda1))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi1) (sin (neg lambda1))))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* -1/6 (* (pow lambda2 2) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (sin lambda1)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* (cos phi1) (* (cos phi2) (sin lambda1))) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/120 (* (pow lambda2 2) (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* (cos phi1) (* (cos phi2) (sin lambda1))) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/120 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2)))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 (sin phi2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/24 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/24 (* (cos lambda1) (cos phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi2) (* (sin lambda1) (sin lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi2) (* (sin lambda1) (sin lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi2 (sin phi1)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* 1/24 (* (cos lambda1) (cos phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi1) (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi1) (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))

Outputs
#s(approx (* (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) R) #s(hole binary64 (* R (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) R))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda1 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (acos (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1))))) #s(hole binary64 (acos (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (acos.f64 (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (sin.f64 lambda1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1) #s(literal -1/2 binary64))) (.f64 lambda1 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 lambda1) #s(literal 1/24 binary64))) (.f64 lambda1 lambda1))) (.f64 lambda1 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (neg.f64 lambda1) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) lambda1)) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi1))) lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (sin.f64 lambda2) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (cos.f64 phi1))) lambda1 (.f64 (sin.f64 lambda2) (cos.f64 phi1))) lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64)))) lambda1 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (fma.f64 (-.f64 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) lambda1 (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) lambda1 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2)))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2)))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (+ (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* -2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2)))))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (sin phi1) (sin phi2)) (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (fma.f64 (-.f64 (fma.f64 (-.f64 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) #s(literal -4/3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) (fma.f64 (.f64 (cos.f64 lambda2) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 1/6 binary64))))) lambda1 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal -2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) lambda1 (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) lambda1 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) lambda1 (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1)) lambda1 (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi1)))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (neg.f64 lambda1) (.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) lambda1 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi1)))) lambda1)) lambda1 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi1))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (acos.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda1 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda1 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (.f64 lambda1 (cos.f64 phi1)) (*.f64 (sin.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (sin lambda2)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1) #s(literal 1 binary64)) (.f64 (*.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* 1/120 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (sin lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (fma.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 #s(literal 1/120 binary64) (.f64 lambda1 lambda1) #s(literal -1/6 binary64))) (.f64 lambda1 lambda1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/120 (* (cos phi1) (* (cos phi2) (sin lambda2))))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 #s(literal -1/5040 binary64) (.f64 lambda1 lambda1) #s(literal 1/120 binary64))) (.f64 lambda1 lambda1))) (.f64 lambda1 lambda1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))) lambda1))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (neg.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) #s(literal -1/2 binary64))) lambda1 (neg.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 (sin.f64 lambda2) lambda1))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 lambda1 lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)) lambda1))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 (fma.f64 (.f64 (sin.f64 lambda2) (fma.f64 #s(literal 1/120 binary64) (.f64 lambda1 lambda1) #s(literal -1/6 binary64))) (.f64 lambda1 lambda1) (sin.f64 lambda2)) lambda1))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1/5040 binary64) (.f64 lambda1 lambda1) #s(literal 1/120 binary64))) (.f64 lambda1 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2))) (.f64 lambda1 lambda1) (sin.f64 lambda2)) lambda1))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (sin.f64 lambda1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (.f64 (*.f64 (sin.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (sin.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) R))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda1)))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi1) (cos (neg lambda1))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi1))) lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi1) (sin (neg lambda1))))))))) (* (cos phi1) (cos (neg lambda1))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 lambda1) (.f64 (.f64 #s(literal 1/6 binary64) lambda2) (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 phi1)))) lambda2 (.f64 (sin.f64 lambda1) (cos.f64 phi1))) lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64)))) lambda2 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 2 binary64) (fma.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda1) (neg.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))) lambda2 (.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64)))))) lambda2 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda1)) (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))))))) (pow (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))) 2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg lambda1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 2 binary64) (fma.f64 (-.f64 (fma.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (.f64 #s(literal 4/3 binary64) (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda1) (neg.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))) (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) lambda2 (.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda1) (neg.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (sin.f64 lambda1)))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (cos.f64 phi1)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) lambda2 (.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda1)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 2 binary64)))))) lambda2 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (.f64 lambda2 (cos.f64 phi2)) (sin.f64 lambda1) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (cos.f64 phi2))) lambda2 (.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi1)))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi1))) lambda2 (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi1)))) lambda2 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi1))) lambda2 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (.f64 lambda2 (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* -1/6 (* (pow lambda2 2) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (sin lambda1)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda2 lambda2) #s(literal 1 binary64)) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* (cos phi1) (* (cos phi2) (sin lambda1))) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/120 (* (pow lambda2 2) (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (fma.f64 (.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 #s(literal 1/120 binary64) (.f64 lambda2 lambda2) #s(literal -1/6 binary64))) (.f64 lambda2 lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* (cos phi1) (* (cos phi2) (sin lambda1))) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/120 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 #s(literal -1/5040 binary64) (.f64 lambda2 lambda2) #s(literal 1/120 binary64))) (.f64 lambda2 lambda2))) (.f64 lambda2 lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 lambda1) lambda2) #s(literal -1/6 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)) lambda2 (cos.f64 lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) #s(literal -1/2 binary64))) lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 (sin.f64 lambda1) lambda2))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 lambda2 lambda2) #s(literal 1 binary64)) (sin.f64 lambda1)) lambda2))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 (fma.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (.f64 lambda2 lambda2) #s(literal -1/6 binary64))) (.f64 lambda2 lambda2) (sin.f64 lambda1)) lambda2))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1/5040 binary64) (.f64 lambda2 lambda2) #s(literal 1/120 binary64))) (.f64 lambda2 lambda2) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 lambda2 lambda2) (sin.f64 lambda1)) lambda2))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))))
#s(approx (* (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) R) (.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) R))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) #s(hole binary64 (acos (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2)))))))))))
#s(approx (acos (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2))))) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (/ (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)))) (- (* (sin phi1) (sin phi2)) (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) (cos.f64 phi1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1 (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi2)))) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 (sin phi2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) phi1 (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/24 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/24 (* (cos lambda1) (cos phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (cos.f64 phi2))) (.f64 phi1 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2)) phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (*.f64 phi1 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda2 lambda1)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1))))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi2) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))) phi1 (sin.f64 phi2)) phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* (cos phi2) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (/ (- (pow (sin phi2) 2) (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi2) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi2) (cos (- lambda2 lambda1))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (fma.f64 (fma.f64 (neg.f64 (/.f64 (sin.f64 phi2) (cos.f64 phi2))) (/.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi2) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi2) #s(literal -1/3 binary64))) phi1 (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi2) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) phi1 (sin.f64 phi2)) phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (*.f64 phi1 phi1) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (fma.f64 (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) #s(literal -1/2 binary64))) (*.f64 phi1 phi1) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) phi1 (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) phi1 (sin.f64 phi2)) phi1 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi2) (* (sin lambda1) (sin lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi2) (* (sin lambda1) (sin lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi2) phi1))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1) #s(literal -1/6 binary64))) (.f64 phi1 phi1) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/6 binary64) (sin.f64 phi2))) (.f64 phi1 phi1) (sin.f64 phi2)) phi1))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (neg.f64 phi1) (neg.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi2 (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))
#s(approx (+ (* (* (* (cos phi1) (cos phi2)) (cos lambda1)) (cos lambda2)) (+ (* (sin phi1) (sin phi2)) (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos lambda2) (cos phi1)))) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi2 (sin phi1)))))))) (+ (* (cos lambda1) (* (cos lambda2) (cos phi1))) (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) phi2 (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* 1/24 (* (cos lambda1) (cos phi1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos lambda1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 lambda1) (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2) #s(literal 1/24 binary64))) (.f64 phi2 phi2))) (.f64 phi2 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (sin.f64 phi1)) phi2 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 (sin.f64 phi1) phi2) #s(literal -1/6 binary64))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* (cos phi1) (cos (- lambda2 lambda1))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (/ (- (pow (sin phi1) 2) (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)))) (* (cos phi1) (cos (- lambda2 lambda1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda2 lambda1))))) (* -1/2 (* (cos phi1) (cos (- lambda2 lambda1))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda2 lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (fma.f64 (fma.f64 (neg.f64 (/.f64 (sin.f64 phi1) (cos.f64 phi1))) (/.f64 (-.f64 (/.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (/.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) #s(literal -1/3 binary64))) phi2 (/.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi2 phi1 (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (-.f64 lambda1 lambda2)) phi1) phi2 (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi1) #s(literal -1/6 binary64))) phi2 phi1) phi2 (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)) (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) phi2 (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)) (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) phi2 (sin.f64 phi1)) phi2 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (sin.f64 lambda2)))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (sin.f64 lambda2))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi1) (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi1)) (sin.f64 lambda2))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) #s(hole binary64 (+ (* (cos phi1) (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (cos phi1) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (sin.f64 lambda2)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2) #s(literal 1/24 binary64))) (.f64 phi2 phi2))) (.f64 phi2 phi2) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi1)) (sin.f64 lambda2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi1) phi2))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)) (sin.f64 phi1)) phi2))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 phi2 phi2) #s(literal -1/6 binary64))) (.f64 phi2 phi2) (sin.f64 phi1)) phi2))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (sin phi2) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi2 phi2) #s(literal 1/120 binary64))) (.f64 phi2 phi2) (.f64 #s(literal -1/6 binary64) (sin.f64 phi1))) (.f64 phi2 phi2) (sin.f64 phi1)) phi2))

rewrite225.0ms (1.5%)

Memory

-23.7MiB live, 302.4MiB allocated; 37ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	88	790
0	133	693
1	548	576
2	4723	576
0	10057	576

Stop Event

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

Counts

25 → 341

Calls

Call 1

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

Outputs
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (pow.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (fma.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 4 binary64))) (.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 6 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 6 binary64))) (.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 4 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64))))
(neg.f64 (/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(neg.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 lambda1) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2)) (cos.f64 lambda1) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 lambda2) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi2))) (cos.f64 phi1) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi2))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 lambda1) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 lambda2) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 lambda1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (sin.f64 lambda1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (/.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (neg.f64 (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (neg.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (-.f64 (neg.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (neg.f64 (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (neg.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (cos.f64 lambda2)))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)))))
(+.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(+.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 R (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(-.f64 (PI.f64) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (cos.f64 lambda1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda1)) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (neg.f64 (*.f64 (sin.f64 phi2) phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi2) phi1) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64))) (-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi2) phi1) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64))))
(fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) phi1))
(fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)))
(fma.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) phi1))
(fma.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 phi2) phi1))
(fma.f64 phi1 (sin.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)))
(-.f64 (/.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)) (-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))
(-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (neg.f64 phi1) (sin.f64 phi2)))
(-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (neg.f64 (.f64 (sin.f64 phi2) phi1)))
(-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (neg.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (neg.f64 (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(+.f64 (/.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) phi1) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) phi1) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)))))
(+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) phi1))
(+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))
(+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1))
(.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (pow.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (fma.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 4 binary64))) (.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 6 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 6 binary64))) (.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 4 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64))))
(neg.f64 (/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(neg.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 lambda1) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2)) (cos.f64 lambda1) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 lambda2) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi2))) (cos.f64 phi1) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi2))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 lambda1) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 lambda2) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 lambda1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (sin.f64 lambda1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (/.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (neg.f64 (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (neg.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (-.f64 (neg.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (neg.f64 (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (neg.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (cos.f64 lambda2)))
(-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (pow.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)))))
(+.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(+.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (.f64 (sin.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 lambda2))
(.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (*.f64 (sin.f64 lambda2) (cos.f64 phi2)))
(.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))
(.f64 (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (sin.f64 lambda1) (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (.f64 (sin.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 lambda1))
(.f64 (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (cos.f64 phi2)) (sin.f64 lambda1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 4 binary64))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)))
(*.f64 (pow.f64 (sin.f64 phi2) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 1 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1))) #s(literal 1 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1))) #s(literal 1 binary64))) (sinh.f64 (.f64 (log.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1))) #s(literal 1 binary64))))

eval81.0ms (0.5%)

Memory: -32.4MiB live, 135.4MiB allocated; 40ms collecting garbage
Compiler: Compiled 24 164 to 2 347 computations (90.3% saved)

prune130.0ms (0.9%)

Memory

32.4MiB live, 271.1MiB allocated; 10ms collecting garbage

Pruning

84 alts after pruning (78 fresh and 6 done)

	Pruned	Kept	Total
New	392	15	407
Fresh	11	63	74
Picked	1	4	5
Done	0	2	2
Total	404	84	488

Accuracy

94.3%

Counts

488 → 84

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.3%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	44.8%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))) R)
	44.8%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
	32.6%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))))) R)
	26.9%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
	73.3%	(.f64 (-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))) R)
	73.4%	(.f64 (-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	23.2%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
	19.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
	49.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
	44.8%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	27.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	73.3%	(.f64 (-.f64 (PI.f64) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))) R)
	37.8%	(.f64 (acos.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
	73.5%	(.f64 (acos.f64 (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	54.2%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))) R)
✓	93.7%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))) R)
	83.4%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))))) R)
	57.2%	(*.f64 (acos.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))) R)
	93.6%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64))) (-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))) R)
	37.3%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) #s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
	93.5%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))) (pow.f64 (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))))))) R)
✓	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	49.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))) R)
	54.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))) R)
	36.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
	22.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
	24.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
	39.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	38.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	30.9%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
	54.2%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1))))) R)
	42.4%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) R)
	42.4%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) R)
	15.8%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	23.2%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
	37.6%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	19.5%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	21.4%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	40.3%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
	32.8%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
	11.9%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
	47.8%	(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
	57.1%	(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	49.9%	(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
	54.9%	(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
✓	93.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	35.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	23.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
	36.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
	30.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
	55.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R)
	49.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	49.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	49.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))))) R)
	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
	35.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	45.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))))) R)
✓	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
✓	28.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	30.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
	35.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
	14.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
	22.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
	23.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
	32.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	28.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
	18.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	16.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	31.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1))))))))) R)
	25.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1)))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))))) R)
	16.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	13.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	16.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
✓	19.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

Compiler

Compiled 10 907 to 3 441 computations (68.5% saved)

regimes425.0ms (2.8%)

Memory

-2.3MiB live, 717.2MiB allocated; 44ms collecting garbage

Counts

145 → 1

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(*.f64 (acos.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) (cos.f64 phi2)) #s(literal 2 binary64)))) R)
(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin lambda2)) (sin lambda1)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 lambda1))))) R)
(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2)) (cos.f64 lambda1) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) #s(approx (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)))))) R)
(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1))))))))) R)
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))))))) R)
(.f64 (-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64))) (-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (-.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))) (pow.f64 (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))))))) R)

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)

Calls

10 calls:

58.0ms	lambda1
54.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
41.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
39.0ms	R
39.0ms	phi2

Results

Accuracy	Segments	Branch
93.7%	1	`(-.f64 lambda1 lambda2)`
93.7%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
93.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
93.7%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
93.7%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
93.7%	1	`R`
93.7%	1	`lambda1`
93.7%	1	`lambda2`
93.7%	1	`phi1`
93.7%	1	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes274.0ms (1.8%)

Memory

2.4MiB live, 530.1MiB allocated; 27ms collecting garbage

Counts

105 → 1

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(*.f64 (acos.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) (cos.f64 phi2)) #s(literal 2 binary64)))) R)
(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (*.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Calls

10 calls:

29.0ms	(-.f64 lambda1 lambda2)
28.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
27.0ms	phi1
27.0ms	lambda2
27.0ms	lambda1

Results

Accuracy	Segments	Branch
93.7%	1	`(-.f64 lambda1 lambda2)`
93.7%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
93.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
93.7%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
93.7%	1	`R`
93.7%	1	`lambda1`
93.7%	1	`phi2`
93.7%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
93.7%	1	`lambda2`
93.7%	1	`phi1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes314.0ms (2.1%)

Memory

16.1MiB live, 482.2MiB allocated; 31ms collecting garbage

Counts

102 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(*.f64 (acos.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) (cos.f64 phi2)) #s(literal 2 binary64)))) R)
(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1)))))) R)

Outputs

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (*.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))) R)

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)

Calls

10 calls:

67.0ms	(cos.f64 (-.f64 lambda1 lambda2))
29.0ms	R
28.0ms	phi2
27.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
26.0ms	phi1

Results

Accuracy	Segments	Branch
75.2%	2	`(-.f64 lambda1 lambda2)`
73.6%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
73.6%	1	`R`
75.4%	2	`lambda1`
83.9%	3	`phi2`
73.6%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
73.6%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
73.6%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
78.3%	3	`lambda2`
83.6%	3	`phi1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes32.0ms (0.2%)

Memory

1.4MiB live, 47.0MiB allocated; 3ms collecting garbage

Counts

97 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(*.f64 (acos.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) (cos.f64 phi2)) #s(literal 2 binary64)))) R)
(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi2) (.f64 (sin.f64 phi2) phi1)))) R)

Outputs

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)

Calls

1 calls:

27.0ms

phi2

Results

Accuracy	Segments	Branch
83.9%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes32.0ms (0.2%)

Memory

-36.3MiB live, 63.9MiB allocated; 7ms collecting garbage

Counts

93 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(*.f64 (acos.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) (cos.f64 phi2)) #s(literal 2 binary64)))) R)
(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Outputs

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R)

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)

Calls

1 calls:

26.0ms

phi2

Results

Accuracy	Segments	Branch
83.8%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes29.0ms (0.2%)

Memory

16.4MiB live, 61.7MiB allocated; 3ms collecting garbage

Counts

91 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(*.f64 (acos.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) (cos.f64 phi2)) #s(literal 2 binary64)))) R)
(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))) R)

Outputs

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (*.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)

Calls

1 calls:

24.0ms

phi2

Results

Accuracy	Segments	Branch
83.8%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes239.0ms (1.6%)

Memory

-13.3MiB live, 279.5MiB allocated; 30ms collecting garbage

Counts

78 → 4

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Outputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R)

Calls

10 calls:

37.0ms	phi2
36.0ms	lambda1
22.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
22.0ms	R
21.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Results

Accuracy	Segments	Branch
62.9%	4	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
66.1%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
60.9%	3	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
62.9%	4	`R`
60.9%	3	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
68.8%	3	`(-.f64 lambda1 lambda2)`
75.4%	4	`lambda1`
77.9%	4	`lambda2`
75.9%	3	`phi1`
77.7%	4	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes21.0ms (0.1%)

Memory

24.2MiB live, 24.2MiB allocated; 0ms collecting garbage

Counts

71 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (*.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)

Calls

1 calls:

17.0ms

lambda2

Results

Accuracy	Segments	Branch
76.2%	3	`lambda2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes73.0ms (0.5%)

Memory

-0.0MiB live, 92.1MiB allocated; 5ms collecting garbage

Counts

70 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Calls

4 calls:

18.0ms	lambda2
18.0ms	phi1
17.0ms	lambda1
17.0ms	phi2

Results

Accuracy	Segments	Branch
73.6%	3	`lambda1`
66.1%	3	`phi1`
66.2%	3	`phi2`
73.5%	3	`lambda2`

Compiler

Compiled 4 to 20 computations (-400% saved)

regimes71.0ms (0.5%)

Memory

-12.3MiB live, 83.4MiB allocated; 7ms collecting garbage

Counts

67 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)

Calls

4 calls:

18.0ms	(cos.f64 (-.f64 lambda1 lambda2))
17.0ms	lambda1
16.0ms	lambda2
16.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
60.7%	3	`(cos.f64 (-.f64 lambda1 lambda2))`
59.3%	2	`(-.f64 lambda1 lambda2)`
67.2%	3	`lambda2`
57.1%	1	`lambda1`

Compiler

Compiled 9 to 23 computations (-155.6% saved)

regimes168.0ms (1.1%)

Memory

17.8MiB live, 205.2MiB allocated; 12ms collecting garbage

Counts

66 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2 (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) phi2 #s(literal 1 binary64)) (.f64 (sin.f64 phi1) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64))))))) R)

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)

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

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)

Calls

10 calls:

18.0ms	(cos.f64 (-.f64 lambda1 lambda2))
17.0ms	phi2
17.0ms	R
17.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
16.0ms	phi1

Results

Accuracy	Segments	Branch
48.3%	3	`lambda1`
55.2%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
55.2%	3	`(-.f64 lambda1 lambda2)`
46.5%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
46.5%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
47.5%	2	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
47.5%	2	`R`
59.3%	3	`phi1`
57.3%	2	`phi2`
48.1%	3	`lambda2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes16.0ms (0.1%)

Memory

-25.8MiB live, 20.6MiB allocated; 1ms collecting garbage

Counts

51 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)

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

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)

Calls

1 calls:

12.0ms

phi1

Results

Accuracy	Segments	Branch
59.2%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes27.0ms (0.2%)

Memory

32.8MiB live, 32.8MiB allocated; 0ms collecting garbage

Counts

50 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 (sin.f64 lambda1)) (neg.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (fma.f64 (cos.f64 phi2) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi1) (sin.f64 phi2)) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) phi2) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)

Calls

2 calls:

12.0ms	phi1
12.0ms	phi2

Results

Accuracy	Segments	Branch
57.2%	2	`phi2`
57.1%	2	`phi1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes17.0ms (0.1%)

Memory

-24.5MiB live, 21.9MiB allocated; 2ms collecting garbage

Counts

17 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)

Calls

3 calls:

6.0ms	(cos.f64 (-.f64 lambda1 lambda2))
5.0ms	phi2
5.0ms	phi1

Results

Accuracy	Segments	Branch
44.9%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
47.9%	2	`phi1`
53.9%	2	`phi2`

Compiler

Compiled 6 to 17 computations (-183.3% saved)

regimes49.0ms (0.3%)

Memory

17.5MiB live, 64.0MiB allocated; 2ms collecting garbage

Counts

16 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)

Calls

10 calls:

6.0ms	lambda2
5.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
5.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
5.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
5.0ms	phi2

Results

Accuracy	Segments	Branch
39.9%	3	`(cos.f64 (-.f64 lambda1 lambda2))`
35.5%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
35.5%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
45.2%	3	`lambda2`
47.1%	4	`lambda1`
38.8%	3	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
38.8%	3	`R`
43.5%	2	`phi1`
37.3%	2	`(-.f64 lambda1 lambda2)`
45.7%	2	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes62.0ms (0.4%)

Memory

-22.0MiB live, 76.7MiB allocated; 43ms collecting garbage

Counts

13 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)

Calls

10 calls:

22.0ms	phi1
7.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
4.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
4.0ms	(cos.f64 (-.f64 lambda1 lambda2))
4.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Results

Accuracy	Segments	Branch
30.4%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
30.4%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
31.3%	2	`R`
31.3%	2	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
32.0%	2	`(-.f64 lambda1 lambda2)`
34.4%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
30.4%	2	`phi1`
28.2%	1	`lambda2`
36.7%	3	`lambda1`
36.9%	2	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes41.0ms (0.3%)

Memory

20.3MiB live, 66.2MiB allocated; 5ms collecting garbage

Counts

12 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

(*.f64 (acos.f64 #s(approx (/ (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R)

Calls

10 calls:

7.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
4.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
4.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
4.0ms	phi1
4.0ms	phi2

Results

Accuracy	Segments	Branch
27.0%	1	`lambda2`
27.0%	1	`phi1`
27.0%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
27.0%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
27.0%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
27.0%	1	`R`
27.0%	1	`(-.f64 lambda1 lambda2)`
28.7%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
27.0%	1	`lambda1`
27.0%	1	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes4.0ms (0%)

Memory

8.0MiB live, 8.0MiB allocated; 0ms collecting garbage

Counts

3 → 1

Calls

Call 1

Inputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Calls

2 calls:

2.0ms	(cos.f64 (-.f64 lambda1 lambda2))
2.0ms	phi2

Results

Accuracy	Segments	Branch
27.0%	1	`phi2`
27.0%	1	`(cos.f64 (-.f64 lambda1 lambda2))`

Compiler

Compiled 5 to 12 computations (-140% saved)

regimes15.0ms (0.1%)

Memory

-16.2MiB live, 31.2MiB allocated; 1ms collecting garbage

Counts

2 → 3

Calls

Call 1

Inputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

Calls

10 calls:

2.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
1.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
1.0ms	phi2
1.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
1.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

Accuracy	Segments	Branch
20.8%	2	`R`
19.0%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
20.8%	2	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
21.6%	2	`(-.f64 lambda1 lambda2)`
19.0%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
26.8%	3	`lambda2`
19.0%	1	`phi1`
27.0%	3	`lambda1`
19.0%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
19.0%	1	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes7.0ms (0%)

Memory

15.5MiB live, 15.5MiB allocated; 0ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

Calls

6 calls:

1.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
1.0ms	lambda2
1.0ms	(-.f64 lambda1 lambda2)
1.0ms	lambda1
1.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

Accuracy	Segments	Branch
19.0%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
19.0%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
19.0%	1	`R`
19.0%	1	`(-.f64 lambda1 lambda2)`
19.0%	1	`lambda2`
19.0%	1	`lambda1`

Compiler

Compiled 29 to 45 computations (-55.2% saved)

bsearch145.0ms (0.9%)

Memory

20.2MiB live, 210.5MiB allocated; 10ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
57.0ms	5.627523283664381e-14	3.3078028434846104e-11
79.0ms	-5.4251614212659764e-5	-9.826080112364669e-33

Samples

115.0ms	264×	1	valid
7.0ms	40×	0	valid

Compiler

Compiled 1 124 to 956 computations (14.9% saved)

Precisions

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

ival-cos: 39.0ms (36.3% of total)

ival-sin: 26.0ms (24.2% of total)

ival-mult: 14.0ms (13% of total)

adjust: 13.0ms (12.1% of total)

ival-acos: 10.0ms (9.3% of total)

ival-sub: 3.0ms (2.8% of total)

ival-add: 3.0ms (2.8% of total)

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

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

bsearch11.0ms (0.1%)

Memory

-38.1MiB live, 7.3MiB allocated; 15ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.627523283664381e-14	3.3078028434846104e-11
2.0ms	-5.4251614212659764e-5	-9.826080112364669e-33

Compiler

Compiled 1 200 to 994 computations (17.2% saved)

bsearch113.0ms (0.7%)

Memory

9.7MiB live, 142.7MiB allocated; 44ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
22.0ms	5.627523283664381e-14	3.3078028434846104e-11
56.0ms	-5.4251614212659764e-5	-9.826080112364669e-33

Samples

63.0ms	143×	1	valid
3.0ms	17×	0	valid

Compiler

Compiled 1 048 to 880 computations (16% saved)

Precisions

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

ival-cos: 18.0ms (30.9% of total)

ival-sin: 13.0ms (22.3% of total)

ival-acos: 10.0ms (17.2% of total)

adjust: 7.0ms (12% of total)

ival-mult: 7.0ms (12% of total)

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

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

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

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

bsearch3.0ms (0%)

Memory

5.7MiB live, 5.7MiB allocated; 0ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.627523283664381e-14	3.3078028434846104e-11
2.0ms	-5.4251614212659764e-5	-9.826080112364669e-33

Compiler

Compiled 1 124 to 956 computations (14.9% saved)

bsearch163.0ms (1.1%)

Memory

33.2MiB live, 226.2MiB allocated; 35ms collecting garbage

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
68.0ms	1.8449173092165522e-34	2.832929834863805e-19
0.0ms	-0.002394663926517805	-0.002352346602669702
86.0ms	-9.331217660794291e+135	-1.8391419667514296e+133

Samples

129.0ms	236×	1	valid
10.0ms	52×	0	valid

Compiler

Compiled 1 392 to 1 127 computations (19% saved)

Precisions

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

ival-cos: 38.0ms (30.3% of total)

adjust: 33.0ms (26.3% of total)

ival-sin: 28.0ms (22.4% of total)

ival-mult: 13.0ms (10.4% of total)

ival-acos: 8.0ms (6.4% of total)

ival-sub: 3.0ms (2.4% of total)

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

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

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

bsearch150.0ms (1%)

Memory

-28.3MiB live, 266.0MiB allocated; 30ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
74.0ms	2.832929834863805e-19	107169.90348858126
67.0ms	-2.1734424018577397e-12	-2.712513364989203e-18

Samples

99.0ms	211×	1	valid
21.0ms	109×	0	valid

Compiler

Compiled 1 405 to 1 150 computations (18.1% saved)

Precisions

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

ival-cos: 39.0ms (38.5% of total)

ival-sin: 25.0ms (24.7% of total)

ival-mult: 13.0ms (12.8% of total)

adjust: 11.0ms (10.9% of total)

ival-acos: 9.0ms (8.9% of total)

ival-sub: 3.0ms (3% of total)

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

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

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

bsearch194.0ms (1.3%)

Memory

19.1MiB live, 157.7MiB allocated; 16ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
72.0ms	5.585196607492033e-25	1.6672265925513544e-10
113.0ms	-1497307228195.8264	-2.4821887894077645e-19

Samples

143.0ms	197×	1	valid
26.0ms	139×	0	valid

Compiler

Compiled 1 408 to 1 159 computations (17.7% saved)

Precisions

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

ival-cos: 44.0ms (41.7% of total)

ival-sin: 24.0ms (22.8% of total)

ival-mult: 13.0ms (12.3% of total)

adjust: 10.0ms (9.5% of total)

ival-acos: 9.0ms (8.5% of total)

ival-sub: 3.0ms (2.8% of total)

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

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

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

bsearch136.0ms (0.9%)

Memory

-3.6MiB live, 221.1MiB allocated; 40ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
60.0ms	2.832929834863805e-19	107169.90348858126
65.0ms	-132.9907816644683	-0.002394663926517805

Samples

85.0ms	138×	1	valid
28.0ms	118×	0	valid

Compiler

Compiled 1 393 to 1 078 computations (22.6% saved)

Precisions

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

ival-cos: 27.0ms (26.9% of total)

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

ival-add: 17.0ms (16.9% of total)

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

adjust: 7.0ms (7% of total)

ival-acos: 6.0ms (6% of total)

ival-sub: 2.0ms (2% of total)

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

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

bsearch204.0ms (1.3%)

Memory

11.1MiB live, 302.5MiB allocated; 33ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
115.0ms	3.593276273919632e-24	1.1163670189156926e-19
80.0ms	-24616789499.524895	-6.192629004972094e-5

Samples

157.0ms	224×	1	valid
23.0ms	64×	0	valid

Compiler

Compiled 1 480 to 1 133 computations (23.4% saved)

Precisions

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

ival-cos: 77.0ms (50.8% of total)

ival-mult: 24.0ms (15.8% of total)

ival-sin: 23.0ms (15.2% of total)

adjust: 14.0ms (9.2% of total)

ival-acos: 8.0ms (5.3% of total)

ival-sub: 3.0ms (2% of total)

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

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

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

bsearch4.0ms (0%)

Memory

7.6MiB live, 7.6MiB allocated; 0ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	3.593276273919632e-24	1.1163670189156926e-19
2.0ms	-24616789499.524895	-6.192629004972094e-5

Compiler

Compiled 1 480 to 1 133 computations (23.4% saved)

bsearch52.0ms (0.3%)

Memory

-9.5MiB live, 37.7MiB allocated; 8ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
50.0ms	0.0006596696976634351	0.0012160407116541731

Samples

45.0ms	57×	1	valid
1.0ms	7×	0	valid

Compiler

Compiled 238 to 209 computations (12.2% saved)

Precisions

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

ival-cos: 7.0ms (31.9% of total)

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

adjust: 3.0ms (13.7% of total)

ival-mult: 3.0ms (13.7% of total)

ival-acos: 2.0ms (9.1% of total)

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

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

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

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

bsearch43.0ms (0.3%)

Memory

8.8MiB live, 53.3MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
41.0ms	0.0006596696976634351	0.0012160407116541731

Samples

36.0ms	35×	1	valid
2.0ms	13×	0	valid

Compiler

Compiled 290 to 229 computations (21% saved)

Precisions

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

ival-cos: 6.0ms (38.2% of total)

ival-sin: 4.0ms (25.5% of total)

adjust: 2.0ms (12.7% of total)

ival-acos: 2.0ms (12.7% of total)

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

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

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

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

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

bsearch1.0ms (0%)

Memory

5.2MiB live, 5.2MiB allocated; 0ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.627523283664381e-14	3.3078028434846104e-11

Compiler

Compiled 622 to 481 computations (22.7% saved)

bsearch1.0ms (0%)

Memory

3.0MiB live, 3.0MiB allocated; 0ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.0006596696976634351	0.0012160407116541731

Compiler

Compiled 310 to 237 computations (23.5% saved)

bsearch0.0ms (0%)

Memory

1.3MiB live, 1.3MiB allocated; 0ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9999972332340062	1.0

Compiler

Compiled 22 to 25 computations (-13.6% saved)

bsearch17.0ms (0.1%)

Memory

-0.6MiB live, 44.9MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.585196607492033e-25	1.6672265925513544e-10
15.0ms	-1497307228195.8264	-2.4821887894077645e-19

Samples

7.0ms	16×	1	valid
6.0ms	16×	0	valid

Compiler

Compiled 1 492 to 1 075 computations (27.9% saved)

Precisions

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

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

ival-cos: 3.0ms (27.6% of total)

adjust: 1.0ms (9.2% of total)

ival-mult: 1.0ms (9.2% of total)

ival-acos: 1.0ms (9.2% of total)

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

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

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

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

simplify77.0ms (0.5%)

Memory

-31.1MiB live, 114.1MiB allocated; 12ms collecting garbage

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	243	1560
1	370	1558
2	781	1558
3	2522	1530
4	6340	1530

Stop Event

1×	node limit

Calls

Call 1

Inputs
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(if (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (<=.f64 phi2 #s(literal -4533471823554859/151115727451828646838272 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2050338190066411/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (<=.f64 phi2 #s(literal -4533471823554859/151115727451828646838272 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2050338190066411/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (<=.f64 lambda2 #s(literal -21999999999999999483034433280792250702873073898465757623012114819665147993056844762457170375726229656817119530788934493496744247033856 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R) (if (<=.f64 lambda2 #s(literal -2720894750872159/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R) (if (<=.f64 lambda2 #s(literal 5815372481559007/20769187434139310514121985316880384 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R))))
(if (<=.f64 lambda2 #s(literal -5323142168927135/2475880078570760549798248448 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R) (if (<=.f64 lambda2 #s(literal 8264141345021879/2361183241434822606848 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)))
(if (<=.f64 lambda1 #s(literal -7791904696734915/4722366482869645213696 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (if (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (<=.f64 lambda2 #s(literal -7839866231326559/2305843009213693952 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R) (if (<=.f64 lambda2 #s(literal 2132904783522667/576460752303423488 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)))
(if (<=.f64 phi1 #s(literal -1152921504606847/72057594037927936 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R) (if (<=.f64 phi1 #s(literal 571152654438831/5192296858534827628530496329220096 binary64)) (.f64 (acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)))
(if (<=.f64 phi1 #s(literal -1152921504606847/72057594037927936 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R) (if (<=.f64 phi1 #s(literal 571152654438831/5192296858534827628530496329220096 binary64)) (.f64 (acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)))
(if (<=.f64 phi2 #s(literal 760928193040519/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R))
(if (<=.f64 phi2 #s(literal 5534023222112865/4611686018427387904 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R))
(if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R))
(if (<=.f64 phi2 #s(literal 760928193040519/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R))
(if (<=.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 9007174333928395/9007199254740992 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(if (<=.f64 lambda1 #s(literal -419110025354681/295147905179352825856 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R) (if (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

Outputs
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(if (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (or (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (not (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)))) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))) R))
(if (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (or (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (not (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)))) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R))
(if (<=.f64 phi2 #s(literal -4533471823554859/151115727451828646838272 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2050338190066411/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (or (<=.f64 phi2 #s(literal -4533471823554859/151115727451828646838272 binary64)) (not (<=.f64 phi2 #s(literal 2050338190066411/77371252455336267181195264 binary64)))) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1))))) R))
(if (<=.f64 phi2 #s(literal -4533471823554859/151115727451828646838272 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2050338190066411/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (or (<=.f64 phi2 #s(literal -4533471823554859/151115727451828646838272 binary64)) (not (<=.f64 phi2 #s(literal 2050338190066411/77371252455336267181195264 binary64)))) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R))
(if (<=.f64 lambda2 #s(literal -21999999999999999483034433280792250702873073898465757623012114819665147993056844762457170375726229656817119530788934493496744247033856 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R) (if (<=.f64 lambda2 #s(literal -2720894750872159/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R) (if (<=.f64 lambda2 #s(literal 5815372481559007/20769187434139310514121985316880384 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R))))
(if (<=.f64 lambda2 #s(literal -21999999999999999483034433280792250702873073898465757623012114819665147993056844762457170375726229656817119530788934493496744247033856 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R) (if (or (<=.f64 lambda2 #s(literal -2720894750872159/1152921504606846976 binary64)) (not (<=.f64 lambda2 #s(literal 5815372481559007/20769187434139310514121985316880384 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (<=.f64 lambda2 #s(literal -5323142168927135/2475880078570760549798248448 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))) R) (if (<=.f64 lambda2 #s(literal 8264141345021879/2361183241434822606848 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)))
(if (<=.f64 lambda1 #s(literal -7791904696734915/4722366482869645213696 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (if (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (or (<=.f64 lambda1 #s(literal -7791904696734915/4722366482869645213696 binary64)) (not (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R))
(if (<=.f64 lambda2 #s(literal -7839866231326559/2305843009213693952 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R) (if (<=.f64 lambda2 #s(literal 2132904783522667/576460752303423488 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)))
(if (<=.f64 phi1 #s(literal -1152921504606847/72057594037927936 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R) (if (<=.f64 phi1 #s(literal 571152654438831/5192296858534827628530496329220096 binary64)) (.f64 (acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)))
(if (<=.f64 phi1 #s(literal -1152921504606847/72057594037927936 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R) (if (<=.f64 phi1 #s(literal 571152654438831/5192296858534827628530496329220096 binary64)) (.f64 (acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 phi2)) phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)))
(if (<=.f64 phi2 #s(literal 760928193040519/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R))
(if (<=.f64 phi2 #s(literal 5534023222112865/4611686018427387904 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R))
(if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (cos.f64 lambda1)) (cos.f64 phi1)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R))
(if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi1)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R))
(if (<=.f64 phi2 #s(literal 760928193040519/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R))
(if (<=.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 9007174333928395/9007199254740992 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (.f64 (acos.f64 #s(approx (/ (- (pow ( (sin phi2) (sin phi1)) 2) (* (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))) (* (neg (cos (- lambda2 lambda1))) (* (cos phi2) (cos phi1))))) (- (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (sin.f64 phi2) phi1)))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(if (<=.f64 lambda1 #s(literal -419110025354681/295147905179352825856 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R) (if (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)))
(if (or (<=.f64 lambda1 #s(literal -419110025354681/295147905179352825856 binary64)) (not (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

derivations781.0ms (5.1%)

Memory

-1.9MiB live, 1 206.1MiB allocated; 108ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 560 to 239 computations (84.7% saved)

preprocess137.0ms (0.9%)

Memory

11.7MiB live, 344.3MiB allocated; 19ms collecting garbage

Remove

(sort phi1 phi2)

(negabs R)

Compiler

Compiled 3 258 to 596 computations (81.7% saved)

end0.0ms (0%)

Memory: 0.0MiB live, 0.0MiB allocated; 0ms collecting garbage

start0.0ms (0%)

analyze906.0ms (5.9%)

sample4.4s (28.5%)

explain373.0ms (2.4%)

preprocess194.0ms (1.3%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify149.0ms (1%)

localize140.0ms (0.9%)

series35.0ms (0.2%)

simplify746.0ms (4.9%)

rewrite181.0ms (1.2%)

eval40.0ms (0.3%)

prune46.0ms (0.3%)

simplify124.0ms (0.8%)

localize429.0ms (2.8%)

series201.0ms (1.3%)

simplify204.0ms (1.3%)

rewrite168.0ms (1.1%)

eval104.0ms (0.7%)

prune78.0ms (0.5%)

simplify109.0ms (0.7%)

localize483.0ms (3.2%)

series126.0ms (0.8%)

simplify185.0ms (1.2%)

rewrite183.0ms (1.2%)

eval87.0ms (0.6%)

prune130.0ms (0.9%)

simplify112.0ms (0.7%)

localize535.0ms (3.5%)

series102.0ms (0.7%)

simplify180.0ms (1.2%)

rewrite225.0ms (1.5%)

eval81.0ms (0.5%)

prune130.0ms (0.9%)

regimes425.0ms (2.8%)

regimes274.0ms (1.8%)

regimes314.0ms (2.1%)

regimes32.0ms (0.2%)

regimes32.0ms (0.2%)

regimes29.0ms (0.2%)

regimes239.0ms (1.6%)

regimes21.0ms (0.1%)

regimes73.0ms (0.5%)

regimes71.0ms (0.5%)

regimes168.0ms (1.1%)

regimes16.0ms (0.1%)

regimes27.0ms (0.2%)

regimes17.0ms (0.1%)

regimes49.0ms (0.3%)

regimes62.0ms (0.4%)

regimes41.0ms (0.3%)

regimes4.0ms (0%)

regimes15.0ms (0.1%)

regimes7.0ms (0%)

bsearch145.0ms (0.9%)

bsearch11.0ms (0.1%)

bsearch113.0ms (0.7%)

bsearch3.0ms (0%)

bsearch163.0ms (1.1%)

bsearch150.0ms (1%)

bsearch194.0ms (1.3%)

bsearch136.0ms (0.9%)

bsearch204.0ms (1.3%)

bsearch4.0ms (0%)

bsearch52.0ms (0.3%)

bsearch43.0ms (0.3%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch17.0ms (0.1%)

simplify77.0ms (0.5%)

derivations781.0ms (5.1%)

preprocess137.0ms (0.9%)

end0.0ms (0%)

Profiling