Metrics for Midpoint on a great circle

start0.0ms (0%)

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

analyze870.0ms (5.6%)

Memory

-6.7MiB live, 1 280.5MiB allocated; 244ms 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
9.4%	9.4%	90.4%	0.2%	0%	0%	0%	9
9.4%	9.4%	90.4%	0.2%	0%	0%	0%	10
10.9%	10.9%	88.9%	0.2%	0%	0%	0%	11
10.9%	10.9%	88.9%	0.2%	0%	0%	0%	12

Compiler

Compiled 22 to 16 computations (27.3% saved)

sample5.5s (34.9%)

Memory

98.0MiB live, 6 495.9MiB allocated; 1.1s collecting garbage

Samples

4.1s	4 533×	1	valid
745.0ms	3 717×	0	valid
4.0ms	6×	2	valid

Precisions

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

ival-cos: 2.7s (60.8% of total)

ival-sin: 537.0ms (12.1% of total)

adjust: 400.0ms (9% of total)

ival-atan2: 280.0ms (6.3% of total)

ival-mult: 250.0ms (5.6% of total)

ival-add: 164.0ms (3.7% of total)

ival-sub: 100.0ms (2.2% of total)

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

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

Bogosity

explain553.0ms (3.5%)

Memory

-29.2MiB live, 364.2MiB allocated; 89ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
72	118	(-7.451820290982066e-50 -2.066579007611596e+201 3.855944996237637e-92 2.770864717779073e-192)	0	-	`(sin.f64 (-.f64 lambda1 lambda2))`
72	118	(-7.451820290982066e-50 -2.066579007611596e+201 3.855944996237637e-92 2.770864717779073e-192)	0	-	`(cos.f64 (-.f64 lambda1 lambda2))`
4	0	-	2	(-6.444355257117338e+51 -2.4147839048739657e-178 -9.026677778909903e+221 6.490735906848397e-197)	`(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))`
0	0	-	0	-	`lambda2`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
0	0	-	0	-	`phi2`
0	0	-	0	-	`(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))`
0	0	-	0	-	`(*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))`
0	0	-	0	-	`(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))`
0	0	-	0	-	`(-.f64 lambda1 lambda2)`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(cos.f64 phi2)`
0	0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (-.f64 lambda1 lambda2))`	sensitivity	190	0
`sin.f64`	`(sin.f64 (-.f64 lambda1 lambda2))`	sensitivity	190	0
`+.f64`	`(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))`	cancellation	1	2

Confusion

	Predicted +	Predicted -
+	4	1
-	186	65

Precision

0.021052631578947368

Recall

0.8

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	4	1	0
-	186	0	65

Precision?

0.02617801047120419

Recall?

1.0

Freqs

test

number	freq
0	66
2	189
3	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

323.0ms	382×	1	valid
21.0ms	130×	0	valid

Compiler

Compiled 186 to 46 computations (75.3% saved)

Precisions

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

ival-cos: 188.0ms (60.3% of total)

adjust: 46.0ms (14.8% of total)

ival-sin: 33.0ms (10.6% of total)

ival-atan2: 15.0ms (4.8% of total)

ival-mult: 12.0ms (3.8% of total)

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

ival-add: 8.0ms (2.6% of total)

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

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

preprocess240.0ms (1.5%)

Memory

21.9MiB live, 154.1MiB allocated; 35ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	95	314
1	219	313
2	422	313
3	940	313
4	2456	313
5	6076	313
0	14	20
0	24	20
1	46	20
2	83	20
3	182	20
4	450	20
5	1233	20
6	3580	20
7	7555	20
0	8055	19

Stop Event

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

Calls

Call 1

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

Outputs

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

(+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1)

Symmetry

(abs phi1)

(abs phi2)

Compiler

Compiled 20 to 14 computations (30% saved)

eval0.0ms (0%)

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

prune0.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))

Compiler

Compiled 20 to 14 computations (30% saved)

simplify154.0ms (1%)

Memory

3.4MiB live, 200.9MiB allocated; 21ms collecting garbage

Localize:

Found 4 expressions of interest:

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	14	81
0	24	81
1	46	81
2	83	81
3	182	81
4	450	81
5	1233	81
6	3580	81
7	7555	81
0	8055	78

Stop Event

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

Calls

Call 1

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

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

localize245.0ms (1.6%)

Memory

-13.7MiB live, 312.7MiB allocated; 50ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.1796875	(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
accuracy	0.45640889865764606	(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
accuracy	15.262716906098404	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	15.40574280565419	(cos.f64 (-.f64 lambda1 lambda2))

Samples

196.0ms	191×	1	valid
9.0ms	65×	0	valid

Compiler

Compiled 83 to 16 computations (80.7% saved)

Precisions

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

ival-cos: 113.0ms (59.8% of total)

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

ival-sin: 18.0ms (9.5% of total)

adjust: 13.0ms (6.9% of total)

ival-add: 11.0ms (5.8% of total)

ival-atan2: 8.0ms (4.2% of total)

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

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

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

series45.0ms (0.3%)

Memory

22.0MiB live, 66.0MiB allocated; 18ms collecting garbage

Counts

6 → 65

Calls

Call 1

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

Outputs
#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 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg 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 (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- 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 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (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 (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#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 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))

Calls

12 calls:

Time	Variable		Point	Expression
27.0ms	phi1	@	inf	((+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (sin (- lambda1 lambda2)))
2.0ms	lambda1	@	-inf	((+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (sin (- lambda1 lambda2)))
2.0ms	lambda1	@	inf	((+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (sin (- lambda1 lambda2)))
2.0ms	phi2	@	inf	((+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (sin (- lambda1 lambda2)))
2.0ms	phi2	@	-inf	((+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (sin (- lambda1 lambda2)))

simplify173.0ms (1.1%)

Memory

-29.2MiB live, 166.5MiB allocated; 46ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	295	1639
1	898	1598
2	3230	1539
3	7979	1539
0	8055	1432

Stop Event

1×	iter limit
1×	node limit

Counts

65 → 65

Calls

Call 1

Inputs
#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 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg 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 (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- 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 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (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 (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#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 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))

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

rewrite214.0ms (1.4%)

Memory

64.1MiB live, 232.7MiB allocated; 61ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	14	63
0	24	63
1	97	63
2	815	63
0	8215	60

Stop Event

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

Counts

6 → 127

Calls

Call 1

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

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

eval693.0ms (4.4%)

Memory: -235.5MiB live, 24.4MiB allocated; 1.1s collecting garbage
Compiler: Compiled 8 694 to 1 035 computations (88.1% saved)

prune29.0ms (0.2%)

Memory

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

Pruning

26 alts after pruning (26 fresh and 0 done)

	Pruned	Kept	Total
New	155	26	181
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	156	26	182

Accuracy

99.2%

Counts

182 → 26

Alt Table

Click to see full alt table

Status	Accuracy	Program
	44.8%	(/.f64 (fma.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (*.f64 lambda1 lambda1))))
	69.5%	(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1))
	76.7%	(+.f64 lambda1 (atan2.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64)) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	99.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	89.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	93.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64))) (sin.f64 (+.f64 lambda2 lambda1)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	47.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))) (.f64 (cos.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	93.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))
	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
	99.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
	99.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))))
▶	93.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
	99.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))
	82.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))
	77.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) #s(literal 1 binary64)))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)) (cos.f64 phi1)))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
▶	81.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 lambda2) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	68.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	99.0%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 1 binary64))))
▶	55.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 2 270 to 1 144 computations (49.6% saved)

simplify147.0ms (0.9%)

Memory

-67.3MiB live, 75.0MiB allocated; 21ms collecting garbage

Localize:

Found 17 expressions of interest:

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	55	600
0	99	600
1	168	600
2	329	600
3	749	600
4	1887	570
5	5450	570
0	8006	560

Stop Event

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

Calls

Call 1

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

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

localize479.0ms (3.1%)

Memory

25.1MiB live, 536.8MiB allocated; 90ms collecting garbage

Localize:

Found 17 expressions of interest:

New	Metric	Score
accuracy	3.6544017620807248	(-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
accuracy	4.051631570672611	(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
accuracy	15.262716906098404	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	15.40574280565419	(cos.f64 (-.f64 lambda2 lambda1))
accuracy	0.1796875	(atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
accuracy	0.45640889865764606	(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
accuracy	15.40574280565419	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	33.20316651675509	#s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))
accuracy	0.1796875	(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))
accuracy	0.436213879120762	(fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))
accuracy	15.262716906098404	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	26.04564691285163	#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))
accuracy	28.432282208631648	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)
accuracy	0.1536712890737681	(fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))
accuracy	0.1796875	(atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
accuracy	0.45640889865764606	(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
accuracy	15.40574280565419	(cos.f64 (-.f64 lambda1 lambda2))

Samples

408.0ms	201×	1	valid
19.0ms	53×	0	valid
3.0ms	2×	2	valid

Compiler

Compiled 550 to 44 computations (92% saved)

Precisions

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

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

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

ival-atan2: 46.0ms (12.4% of total)

adjust: 41.0ms (11% of total)

ival-add: 25.0ms (6.7% of total)

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

ival-sub: 21.0ms (5.7% of total)

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

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

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

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

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

exact: 0.0ms (0% of total)

series114.0ms (0.7%)

Memory

27.2MiB live, 115.9MiB allocated; 17ms collecting garbage

Counts

23 → 172

Calls

Call 1

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

Outputs
#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 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos lambda2) 2) (pow (cos phi2) 2)) (- (* (cos lambda2) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))) (/ (* (pow (cos lambda2) 2) (pow (cos phi2) 2)) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 3))) (+ (* -1/2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (cos phi2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (- (* (cos lambda2) (cos phi2)) (cos phi1))))) (+ (* -1/2 (/ (* (pow (cos lambda2) 3) (pow (cos phi2) 3)) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (cos phi2) (* (sin lambda2) (- (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))))) (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))) (/ (* (pow (cos lambda2) 2) (pow (cos phi2) 2)) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 3))) (+ (* -1/2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (cos phi2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (+ (* lambda1 (- (+ (* -1 (/ (* (cos phi2) (* (sin lambda2) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 3))) (* -1/2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (cos phi2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (+ (* -1/6 (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (+ (* 1/2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 3))) (/ (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2))))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))))) (+ (* -1/2 (/ (* (cos lambda2) (* (cos phi2) (- (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (+ (* -1/6 (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (cos phi2) (* (sin lambda2) (- (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (- (* (cos lambda2) (cos phi2)) (cos phi1))) (+ (* -1/2 (/ (* (pow (cos lambda2) 3) (pow (cos phi2) 3)) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (cos phi2) (* (sin lambda2) (- (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))))) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))) (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))))) (+ (* -1/2 (/ (* (pow (cos lambda2) 3) (pow (cos phi2) 3)) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (cos phi2) (* (sin lambda2) (- (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))))) (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))) (/ (* (pow (cos lambda2) 2) (pow (cos phi2) 2)) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1)))))))
#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 lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (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 (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos lambda2) (cos phi2)) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))) (cos phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))))) lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (/ (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (/ (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (+ lambda2 (* -1 lambda1)))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1 (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda1)) 2))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 3))) (+ (* -1/2 (/ (* (pow (cos phi1) 2) (* (cos phi2) (cos (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))) (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))) (+ (* -1 (/ (* (cos phi2) (* (sin (neg lambda1)) (- (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1/2 (/ (* (pow (cos phi2) 3) (pow (cos (neg lambda1)) 3)) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda1)) 2))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 3))) (+ (* -1/2 (/ (* (pow (cos phi1) 2) (* (cos phi2) (cos (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))) (+ (* lambda2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 3))) (+ (* 1/6 (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))) (+ (/ (* (cos phi2) (* (sin (neg lambda1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda1)) 2))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 3))) (* -1/2 (/ (* (pow (cos phi1) 2) (* (cos phi2) (cos (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))) (/ (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin (neg lambda1)) (- (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))) (+ (* -1 (/ (* (cos phi2) (* (sin (neg lambda1)) (- (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1/2 (/ (* (pow (cos phi2) 3) (pow (cos (neg lambda1)) 3)) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (+ (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda1)) (- (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* 1/6 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))))))) (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin (neg lambda1)) (- (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1/2 (/ (* (pow (cos phi2) 3) (pow (cos (neg lambda1)) 3)) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))))
#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 lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#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 (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (sin (neg lambda1))))) (* (cos phi2) (cos (neg lambda1)))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi2) (cos (neg lambda1))))))) (* (cos phi2) (cos (neg lambda1)))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi2) (sin (neg lambda1))))))))) (* (cos phi2) (cos (neg lambda1)))) (cos phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (/ (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (/ (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (neg (+ lambda1 (* -1 lambda2))))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi1 2) (- (+ (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (* 1/2 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi1 2) (- (+ (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (+ (* (pow phi1 2) (- (* -1/2 (/ (+ (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)) (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (+ (* -1/4 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 3))) (+ (* -1/24 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (+ (* 1/24 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (* 1/3 (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))) (* 1/2 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi1 2) (- (+ (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (+ (* (pow phi1 2) (- (+ (* -1/2 (/ (+ (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)) (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (* (pow phi1 2) (- (+ (* 1/720 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (+ (* 1/24 (/ (+ (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)) (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (+ (* 2/45 (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (* 1/2 (/ (- (+ (* 1/24 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (* 1/3 (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))) (* -1/2 (/ (+ (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)) (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 3))) (* -1/24 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (+ (* 1/720 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (* 1/48 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 3)))))))) (+ (* -1/4 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 3))) (+ (* -1/24 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (+ (* 1/24 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (* 1/3 (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))) (* 1/2 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* 1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda2 lambda1)))) 1)))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* (cos phi2) (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ 1/2 (* -1/24 (pow phi1 2))))) 1)))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* (cos phi2) (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ 1/2 (* (pow phi1 2) (- (* 1/720 (pow phi1 2)) 1/24))))) 1)))
#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 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* -1/2 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* (cos lambda2) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* 1/24 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* 1/24 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1))) (/ (pow (cos phi1) 2) (- (cos (- lambda2 lambda1)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi2 2) (- (+ (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* -1/2 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2)))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (cos (- lambda2 lambda1)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi2 2) (- (+ (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (+ (* -1/2 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (* (pow phi2 2) (- (+ (* -1/4 (/ (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 3))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (* 1/3 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))))) (+ (* -1/2 (/ (* (cos (- lambda2 lambda1)) (- (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* 1/24 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2)))))))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (cos (- lambda2 lambda1)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi2 2) (- (+ (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (+ (* -1/2 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (* (pow phi2 2) (- (+ (* -1/4 (/ (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 3))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (+ (* 1/3 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* (pow phi2 2) (- (+ (* -2/45 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (+ (* -1/720 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (+ (* 1/48 (/ (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 3))) (* 1/2 (/ (* (cos (- lambda2 lambda1)) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 3))) (* 1/24 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (- (cos (- lambda2 lambda1)) (cos phi1))))))) (+ (* -1/2 (/ (* (cos (- lambda2 lambda1)) (- (* 1/3 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (+ (* -1/2 (/ (* (cos (- lambda2 lambda1)) (- (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* 1/24 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2)))))) (- (cos (- lambda2 lambda1)) (cos phi1)))) (+ (* -1/720 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (* 1/24 (/ (* (cos (- lambda2 lambda1)) (- (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (- (cos (- lambda2 lambda1)) (cos phi1))))))))))) (+ (* -1/2 (/ (* (cos (- lambda2 lambda1)) (- (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* 1/24 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2)))))))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (cos (- lambda2 lambda1)) (cos phi1))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1))))))))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (cos (- lambda2 lambda1)) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi2 2) (cos (- lambda2 lambda1))))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (cos (- lambda2 lambda1)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi2 2) (cos (- lambda2 lambda1))))))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (cos (- lambda2 lambda1)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1)))))))) (cos phi1))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))

Calls

12 calls:

Time	Variable		Point	Expression
31.0ms	lambda1	@	-inf	((+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)) (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (sin (- lambda1 lambda2)) (cos (- lambda2 lambda1)) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))
10.0ms	phi1	@	0	((+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)) (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (sin (- lambda1 lambda2)) (cos (- lambda2 lambda1)) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))
9.0ms	lambda1	@	inf	((+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)) (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (sin (- lambda1 lambda2)) (cos (- lambda2 lambda1)) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))
8.0ms	phi2	@	0	((+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)) (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (sin (- lambda1 lambda2)) (cos (- lambda2 lambda1)) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))
7.0ms	phi2	@	inf	((+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)) (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (sin (- lambda1 lambda2)) (cos (- lambda2 lambda1)) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))

simplify207.0ms (1.3%)

Memory

-48.5MiB live, 205.7MiB allocated; 66ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1020	9325
1	3137	9067
0	9264	8744

Stop Event

1×	iter limit
1×	node limit

Counts

172 → 172

Calls

Call 1

Inputs
#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 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos lambda2) 2) (pow (cos phi2) 2)) (- (* (cos lambda2) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))) (/ (* (pow (cos lambda2) 2) (pow (cos phi2) 2)) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 3))) (+ (* -1/2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (cos phi2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (- (* (cos lambda2) (cos phi2)) (cos phi1))))) (+ (* -1/2 (/ (* (pow (cos lambda2) 3) (pow (cos phi2) 3)) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (cos phi2) (* (sin lambda2) (- (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))))) (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))) (/ (* (pow (cos lambda2) 2) (pow (cos phi2) 2)) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 3))) (+ (* -1/2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (cos phi2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (+ (* lambda1 (- (+ (* -1 (/ (* (cos phi2) (* (sin lambda2) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 3))) (* -1/2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (cos phi2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (+ (* -1/6 (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (+ (* 1/2 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 3))) (/ (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda2) (sin lambda2))) (* -1/3 (* (cos lambda2) (sin lambda2))))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))))) (+ (* -1/2 (/ (* (cos lambda2) (* (cos phi2) (- (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (+ (* -1/6 (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (cos phi2) (* (sin lambda2) (- (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (- (* (cos lambda2) (cos phi2)) (cos phi1))) (+ (* -1/2 (/ (* (pow (cos lambda2) 3) (pow (cos phi2) 3)) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (cos phi2) (* (sin lambda2) (- (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))))) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))) (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))))) (+ (* -1/2 (/ (* (pow (cos lambda2) 3) (pow (cos phi2) 3)) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))) (/ (* (cos phi2) (* (sin lambda2) (- (* 2 (/ (* (cos lambda2) (* (pow (cos phi2) 2) (sin lambda2))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2))))) (- (* (cos lambda2) (cos phi2)) (cos phi1)))))) (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))) (/ (* (pow (cos lambda2) 2) (* (pow (cos phi2) 3) (sin lambda2))) (pow (- (* (cos lambda2) (cos phi2)) (cos phi1)) 2)))) (/ (* (pow (cos lambda2) 2) (pow (cos phi2) 2)) (- (* (cos lambda2) (cos phi2)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos lambda2) (cos phi2)) (cos phi1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1)))))))
#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 lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (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 (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos lambda2) (cos phi2)) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))) (cos phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))))) lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos phi2) (cos (- lambda2 lambda1))) (cos phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (/ (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (/ (* (pow (cos phi2) 2) (pow (cos (+ lambda2 (* -1 lambda1))) 2)) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (+ lambda2 (* -1 lambda1)))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))) (cos phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1 (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda1)) 2))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 3))) (+ (* -1/2 (/ (* (pow (cos phi1) 2) (* (cos phi2) (cos (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))) (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))) (+ (* -1 (/ (* (cos phi2) (* (sin (neg lambda1)) (- (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1/2 (/ (* (pow (cos phi2) 3) (pow (cos (neg lambda1)) 3)) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda1)) 2))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 3))) (+ (* -1/2 (/ (* (pow (cos phi1) 2) (* (cos phi2) (cos (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))) (+ (* lambda2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1))))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 3))) (+ (* 1/6 (/ (* (pow (cos phi1) 2) (* (cos phi2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))) (+ (/ (* (cos phi2) (* (sin (neg lambda1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda1)) 2))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 3))) (* -1/2 (/ (* (pow (cos phi1) 2) (* (cos phi2) (cos (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))) (/ (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda1)) (sin (neg lambda1)))) (* (cos (neg lambda1)) (sin (neg lambda1))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin (neg lambda1)) (- (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))) (+ (* -1 (/ (* (cos phi2) (* (sin (neg lambda1)) (- (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1/2 (/ (* (pow (cos phi2) 3) (pow (cos (neg lambda1)) 3)) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (+ (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda1)) (- (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* 1/6 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))))))) (/ (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda1)) 2)) (pow (sin (neg lambda1)) 2))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin (neg lambda1)) (- (* -2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda1)) (sin (neg lambda1)))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (* -1/2 (/ (* (pow (cos phi2) 3) (pow (cos (neg lambda1)) 3)) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2)))))))) (* -1 (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda1)) 2) (sin (neg lambda1)))) (pow (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (neg lambda1)) 2)) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1)))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))))
#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 lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#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 (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos phi2) (cos (neg lambda1))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (sin (neg lambda1))))) (* (cos phi2) (cos (neg lambda1)))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi2) (cos (neg lambda1))))))) (* (cos phi2) (cos (neg lambda1)))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi2) (sin (neg lambda1))))))))) (* (cos phi2) (cos (neg lambda1)))) (cos phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (/ (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (/ (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda1 (* -1 lambda2)))) 2)) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (neg (+ lambda1 (* -1 lambda2))))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))) (cos phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi1 2) (- (+ (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (* 1/2 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi1 2) (- (+ (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (+ (* (pow phi1 2) (- (* -1/2 (/ (+ (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)) (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (+ (* -1/4 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 3))) (+ (* -1/24 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (+ (* 1/24 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (* 1/3 (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))) (* 1/2 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi1 2) (- (+ (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (+ (* (pow phi1 2) (- (+ (* -1/2 (/ (+ (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)) (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (* (pow phi1 2) (- (+ (* 1/720 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (+ (* 1/24 (/ (+ (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)) (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (+ (* 2/45 (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (* 1/2 (/ (- (+ (* 1/24 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (* 1/3 (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))) (* -1/2 (/ (+ (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)) (* 1/2 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 3))) (* -1/24 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2)))) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (+ (* 1/720 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (* 1/48 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 3)))))))) (+ (* -1/4 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 3))) (+ (* -1/24 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (+ (* 1/24 (/ 1 (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))) (* 1/3 (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))) (* 1/2 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (* (cos phi2) (cos (- lambda2 lambda1))) 1) 2))))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda2 lambda1)) 2)) (- (* (cos phi2) (cos (- lambda2 lambda1))) 1))) (/ 1 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (* (cos phi2) (cos (- lambda2 lambda1))) 1)))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* 1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda2 lambda1)))) 1)))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* (cos phi2) (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ 1/2 (* -1/24 (pow phi1 2))))) 1)))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (* (cos phi2) (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ 1/2 (* (pow phi1 2) (- (* 1/720 (pow phi1 2)) 1/24))))) 1)))
#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 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* -1/2 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* (cos lambda2) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* 1/24 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* 1/24 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1))) (/ (pow (cos phi1) 2) (- (cos (- lambda2 lambda1)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi2 2) (- (+ (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* -1/2 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2)))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (cos (- lambda2 lambda1)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi2 2) (- (+ (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (+ (* -1/2 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (* (pow phi2 2) (- (+ (* -1/4 (/ (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 3))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (* 1/3 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))))) (+ (* -1/2 (/ (* (cos (- lambda2 lambda1)) (- (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* 1/24 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2)))))))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (cos (- lambda2 lambda1)) (cos phi1))))))
#s(approx (- (/ (pow (* (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) #s(hole binary64 (- (+ (* (pow phi2 2) (- (+ (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (+ (* -1/2 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (* (pow phi2 2) (- (+ (* -1/4 (/ (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 3))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (+ (* 1/3 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* (pow phi2 2) (- (+ (* -2/45 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (+ (* -1/720 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (+ (* 1/48 (/ (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 3))) (* 1/2 (/ (* (cos (- lambda2 lambda1)) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (pow (cos (- lambda2 lambda1)) 2)) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 3))) (* 1/24 (/ (* (pow (cos phi1) 2) (cos (- lambda2 lambda1))) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (- (cos (- lambda2 lambda1)) (cos phi1))))))) (+ (* -1/2 (/ (* (cos (- lambda2 lambda1)) (- (* 1/3 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (+ (* -1/2 (/ (* (cos (- lambda2 lambda1)) (- (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* 1/24 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2)))))) (- (cos (- lambda2 lambda1)) (cos phi1)))) (+ (* -1/720 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))) (* 1/24 (/ (* (cos (- lambda2 lambda1)) (- (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (- (cos (- lambda2 lambda1)) (cos phi1))))))))))) (+ (* -1/2 (/ (* (cos (- lambda2 lambda1)) (- (* -1 (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (- (cos (- lambda2 lambda1)) (cos phi1)))) (* 1/24 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2)))))))) (* -1/2 (/ (pow (cos (- lambda2 lambda1)) 3) (pow (- (cos (- lambda2 lambda1)) (cos phi1)) 2))))) (/ (pow (cos (- lambda2 lambda1)) 2) (- (cos (- lambda2 lambda1)) (cos phi1)))) (/ (pow (cos phi1) 2) (- (cos (- lambda2 lambda1)) (cos phi1))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1))))))))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (cos (- lambda2 lambda1)) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi2 2) (cos (- lambda2 lambda1))))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (cos (- lambda2 lambda1)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi2 2) (cos (- lambda2 lambda1))))))) (cos phi1))))
#s(approx (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) #s(hole binary64 (- (+ (cos (- lambda2 lambda1)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1)))))))) (cos phi1))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))

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

rewrite231.0ms (1.5%)

Memory

32.5MiB live, 220.8MiB allocated; 21ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	55	426
0	99	320
1	360	320
2	3043	320
0	9344	308

Stop Event

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

Counts

23 → 308

Calls

Call 1

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

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

eval113.0ms (0.7%)

Memory: -15.5MiB live, 169.7MiB allocated; 37ms collecting garbage
Compiler: Compiled 30 760 to 2 544 computations (91.7% saved)

prune52.0ms (0.3%)

Memory

28.9MiB live, 76.6MiB allocated; 3ms collecting garbage

Pruning

43 alts after pruning (42 fresh and 1 done)

	Pruned	Kept	Total
New	529	33	562
Fresh	12	9	21
Picked	4	1	5
Done	0	0	0
Total	545	43	588

Accuracy

99.9%

Counts

588 → 43

Alt Table

Click to see full alt table

Status	Accuracy	Program
	44.8%	(/.f64 (fma.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (*.f64 lambda1 lambda1))))
▶	52.4%	(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) lambda1))
	89.6%	(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (cos.f64 phi2)) (fma.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (-.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	94.6%	(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda2 lambda1))) (cos.f64 phi2)) (sin.f64 (+.f64 lambda2 lambda1))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))
	82.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
▶	82.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
	94.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda2 lambda1))) (sin.f64 (+.f64 lambda2 lambda1)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	93.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))
	99.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
	93.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
	99.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))
	70.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (/ (pow ( (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos 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)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 1 binary64)))))))
	59.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
	77.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) #s(literal 1 binary64)))))
▶	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	81.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi1)))))
	75.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))))
	81.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))
	81.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) lambda1 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1))))))
	69.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) #s(literal 1 binary64))))))
	81.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
	69.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
	53.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (fma.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 1/2 binary64)) (cos.f64 phi1))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
	92.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (/.f64 (/.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))))
	92.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (/.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))))
	92.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (-.f64 (/.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))))
	79.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
	67.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	69.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	78.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	68.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	99.0%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (fma.f64 (/.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) lambda1 lambda1))
	99.0%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 1 binary64))))
✓	55.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 3 924 to 2 067 computations (47.3% saved)

simplify193.0ms (1.2%)

Memory

-18.5MiB live, 161.1MiB allocated; 29ms collecting garbage

Localize:

Found 20 expressions of interest:

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	57	767
0	103	747
1	188	747
2	396	747
3	918	716
4	1951	714
5	4157	714
0	8376	694

Stop Event

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

Calls

Call 1

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

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

localize583.0ms (3.7%)

Memory

-11.6MiB live, 477.6MiB allocated; 136ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.4616012695368841	(pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64))
accuracy	15.262716906098404	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	19.086301746961194	(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) lambda1))
accuracy	26.04564691285163	#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))
accuracy	0.1536712890737681	(fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))
accuracy	0.1796875	(atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
accuracy	0.45640889865764606	(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
accuracy	42.55670836784887	(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
accuracy	0.1796875	(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))
accuracy	0.43721786013995523	(fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))
accuracy	15.262716906098404	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	28.873628998025726	#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))
accuracy	0.436213879120762	(fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))
accuracy	15.262716906098404	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	25.404200231964467	#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2)))
accuracy	26.04564691285163	#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))
accuracy	0.15234375	(*.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2))
accuracy	0.1536712890737681	(fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))
accuracy	0.1796875	(atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
accuracy	0.45640889865764606	(+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))

Samples

492.0ms	194×	1	valid
27.0ms	62×	0	valid

Compiler

Compiled 666 to 53 computations (92% saved)

Precisions

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

ival-sin: 114.0ms (25.7% of total)

ival-cos: 113.0ms (25.4% of total)

adjust: 106.0ms (23.9% of total)

ival-mult: 36.0ms (8.1% of total)

ival-atan2: 32.0ms (7.2% of total)

ival-add: 19.0ms (4.3% of total)

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

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

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

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

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

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

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

exact: 0.0ms (0% of total)

series81.0ms (0.5%)

Memory

4.4MiB live, 106.7MiB allocated; 11ms collecting garbage

Counts

27 → 203

Calls

Call 1

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

Outputs
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2)))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (+ (* -1 (pow lambda1 2)) (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2))))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* 1/2 (* (pow lambda1 2) (sin lambda2))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (sin lambda2))) (* 1/2 (sin lambda2)))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/24 (sin lambda2)) (* 1/720 (* (pow lambda1 2) (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 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (cos phi2))))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) lambda1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 lambda1))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (* -1 (pow lambda1 2))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (* (pow lambda1 2) (- (/ (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow lambda1 2)) 1))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* -1 (* (cos lambda1) (sin lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (* (pow lambda1 2) (- (/ (pow (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) 2) (pow lambda1 2)) 1))))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (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 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (* -1/2 (PI))))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (- lambda2 (* 1/2 (PI)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (/ (- (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (- (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow lambda1 2))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (* 1/6 (* (pow lambda2 2) (cos lambda1)))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/120 (* (pow lambda2 2) (cos lambda1))) (* 1/6 (cos lambda1))))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (* (pow lambda2 2) (+ (* 1/6 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/120 (cos lambda1)) (* 1/5040 (* (pow lambda2 2) (cos lambda1)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2))))))))))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (* lambda2 (+ 1 (* -1/2 (/ (PI) lambda2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/2 (/ (PI) lambda2)) 1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (/ (- (pow (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) lambda1))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (- (pow (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) 2) (pow lambda1 2))))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (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 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* -1/2 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* (cos lambda2) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* 1/24 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* 1/24 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (sin (- (+ lambda1 (* 1/2 (PI))) 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 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1))))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (cos phi1))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))

Calls

12 calls:

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

simplify269.0ms (1.7%)

Memory

3.0MiB live, 187.5MiB allocated; 33ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	846	6901
1	2670	6702
0	8508	6211

Stop Event

1×	iter limit
1×	node limit

Counts

203 → 203

Calls

Call 1

Inputs
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2)))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (+ (* -1 (pow lambda1 2)) (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2))))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* 1/2 (* (pow lambda1 2) (sin lambda2))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (sin lambda2))) (* 1/2 (sin lambda2)))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/24 (sin lambda2)) (* 1/720 (* (pow lambda1 2) (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 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (cos phi2))))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) lambda1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 lambda1))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (* -1 (pow lambda1 2))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (* (pow lambda1 2) (- (/ (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow lambda1 2)) 1))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* -1 (* (cos lambda1) (sin lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (* (pow lambda1 2) (- (/ (pow (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) 2) (pow lambda1 2)) 1))))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (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 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (* -1/2 (PI))))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (- lambda2 (* 1/2 (PI)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (/ (- (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (- (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow lambda1 2))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (* 1/6 (* (pow lambda2 2) (cos lambda1)))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/120 (* (pow lambda2 2) (cos lambda1))) (* 1/6 (cos lambda1))))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (* (pow lambda2 2) (+ (* 1/6 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/120 (cos lambda1)) (* 1/5040 (* (pow lambda2 2) (cos lambda1)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2))))))))))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (* lambda2 (+ 1 (* -1/2 (/ (PI) lambda2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/2 (/ (PI) lambda2)) 1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (/ (- (pow (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) lambda1))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (- (pow (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) 2) (pow lambda1 2))))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (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 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* -1/2 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* (cos lambda2) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* 1/24 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* 1/24 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (sin (- (+ lambda1 (* 1/2 (PI))) 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 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1))))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (cos phi1))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))

Outputs
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (cos.f64 phi2) (*.f64 (sin.f64 lambda2) (cos.f64 phi2))) lambda1 (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 phi2))) (sin.f64 lambda2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (cos.f64 phi2))) lambda1 (*.f64 (sin.f64 lambda2) (cos.f64 phi2))) lambda1 (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) (+.f64 (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (*.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda2)))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (*.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (fma.f64 (.f64 lambda1 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (fma.f64 (.f64 lambda1 lambda1) (fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 phi2))) (cos.f64 lambda2) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda2)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (.f64 lambda1 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (.f64 lambda1 lambda1) (fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 phi2))) (cos.f64 lambda2) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 lambda2) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) (fma.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) lambda1 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 lambda1 #s(literal -1/2 binary64)) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2))) lambda1 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) #s(literal -1/2 binary64))) lambda1 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2))) lambda1 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) (fma.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) (cos.f64 phi2))) lambda1 (fma.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 phi2))) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)))) lambda1 (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) (cos.f64 phi2))) lambda1 (fma.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) (+.f64 (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) (cos.f64 phi1))) lambda1))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2)))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (+ (* -1 (pow lambda1 2)) (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (fma.f64 (neg.f64 lambda1) lambda1 (pow.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2)))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (neg.f64 (sin.f64 lambda2)))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (fma.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 lambda2) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) (neg.f64 (sin.f64 lambda2)))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* 1/2 (* (pow lambda1 2) (sin lambda2))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) (.f64 (sin.f64 lambda2) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) lambda1 #s(literal -1 binary64))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (sin lambda2))) (* 1/2 (sin lambda2)))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) (fma.f64 (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 lambda1) #s(literal 1/2 binary64))) (*.f64 lambda1 lambda1) (neg.f64 (sin.f64 lambda2))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/24 (sin lambda2)) (* 1/720 (* (pow lambda1 2) (sin lambda2))))))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) (fma.f64 (fma.f64 (.f64 (sin.f64 lambda2) (fma.f64 #s(literal 1/720 binary64) (.f64 lambda1 lambda1) #s(literal -1/24 binary64))) (.f64 lambda1 lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))) (*.f64 lambda1 lambda1) (neg.f64 (sin.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)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (*.f64 lambda1 (neg.f64 (cos.f64 phi2))) (neg.f64 (sin.f64 lambda2)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (cos.f64 phi2) (*.f64 (neg.f64 (neg.f64 (sin.f64 lambda2))) (cos.f64 phi2))) lambda1 (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (neg.f64 (neg.f64 (sin.f64 lambda2))) (cos.f64 phi2) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 phi2))) (neg.f64 (sin.f64 lambda2)) (.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (cos.f64 phi2))) lambda1)) lambda1 (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) lambda1 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1) #s(literal -1/2 binary64))) (*.f64 lambda1 lambda1) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (cos phi2))))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 lambda1) #s(literal 1/24 binary64))) (.f64 lambda1 lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (*.f64 lambda1 lambda1) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #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 lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) (cos.f64 phi1))) lambda1) lambda1 lambda1))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (fma.f64 (/.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) lambda1 lambda1))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) (cos.f64 phi1))) lambda1) lambda1 lambda1))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 lambda1))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) lambda1)
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (fma.f64 (/.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) lambda1 lambda1))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (* -1 (pow lambda1 2))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (*.f64 (neg.f64 lambda1) lambda1))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (* (pow lambda1 2) (- (/ (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow lambda1 2)) 1))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (.f64 (-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) #s(literal 1 binary64)) (.f64 lambda1 lambda1)))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (sin.f64 lambda1))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* -1 (* (cos lambda1) (sin lambda2)))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) (*.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 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) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) (sin.f64 (+.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) lambda1)))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 (+.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) lambda1)) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (* (pow lambda1 2) (- (/ (pow (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) 2) (pow lambda1 2)) 1))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (.f64 (-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) #s(literal 1 binary64)) (.f64 lambda1 lambda1)))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) 2)))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
#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)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (sin.f64 (+.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) lambda1)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (*.f64 lambda2 (cos.f64 phi2)) (sin.f64 lambda1) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (.f64 lambda2 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 phi2))) (sin.f64 lambda1) (.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) (cos.f64 phi1))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (neg.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 lambda1) (.f64 (.f64 lambda2 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (sin.f64 lambda1))) lambda2 (.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 lambda1) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)) (cos.f64 phi2))) lambda2)) lambda2 (.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (neg.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 lambda1) (.f64 (.f64 lambda2 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (sin.f64 lambda1))) lambda2 (.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 lambda1) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)) (cos.f64 phi2))) lambda2)) lambda2 (.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1))) lambda2 (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) (fma.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (neg.f64 lambda2) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) (fma.f64 (fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (neg.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)))) lambda2 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda2) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) #s(literal -1/2 binary64))) lambda2 (neg.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)))) lambda2 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (*.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (cos.f64 phi2)) (neg.f64 lambda2) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)))) lambda2 (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 phi2))) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) lambda2)) lambda2 (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (* -1/2 (PI))))
#s(approx (- lambda2 (/ (PI) 2)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (- lambda2 (* 1/2 (PI)))))
#s(approx (- lambda2 (/ (PI) 2)) (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (/ (- (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (/.f64 (fma.f64 (neg.f64 lambda1) lambda1 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1)))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (- (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow lambda1 2))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (fma.f64 (neg.f64 lambda1) lambda1 (pow.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (sin.f64 lambda1))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (fma.f64 (fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1))) lambda2 (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) (*.f64 (neg.f64 (cos.f64 lambda1)) lambda2))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (* 1/6 (* (pow lambda2 2) (cos lambda1)))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) (.f64 (.f64 (cos.f64 lambda1) (fma.f64 (*.f64 #s(literal 1/6 binary64) lambda2) lambda2 #s(literal -1 binary64))) lambda2))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/120 (* (pow lambda2 2) (cos lambda1))) (* 1/6 (cos lambda1))))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) (.f64 (fma.f64 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/120 binary64) (.f64 lambda2 lambda2) #s(literal 1/6 binary64))) (.f64 lambda2 lambda2) (neg.f64 (cos.f64 lambda1))) lambda2))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (* (pow lambda2 2) (+ (* 1/6 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/120 (cos lambda1)) (* 1/5040 (* (pow lambda2 2) (cos lambda1)))))))))))
#s(approx (* (neg (cos lambda1)) (sin lambda2)) (.f64 (fma.f64 (fma.f64 (.f64 (cos.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) (cos.f64 lambda1))) (.f64 lambda2 lambda2) (neg.f64 (cos.f64 lambda1))) lambda2))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (*.f64 lambda2 (cos.f64 phi2)) (sin.f64 lambda1) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 lambda2 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))) (cos.f64 phi2) (*.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 phi2))) (sin.f64 lambda1) (.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) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda2 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 lambda2 lambda2) #s(literal -1/2 binary64))) (*.f64 lambda2 lambda2) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2))))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda2 lambda2) #s(literal 1/24 binary64))) (.f64 lambda2 lambda2) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (*.f64 lambda2 lambda2) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (- lambda2 (/ (PI) 2)) lambda2)
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (* lambda2 (+ 1 (* -1/2 (/ (PI) lambda2))))))
#s(approx (- lambda2 (/ (PI) 2)) (*.f64 (fma.f64 (/.f64 (PI.f64) lambda2) #s(literal -1/2 binary64) #s(literal 1 binary64)) lambda2))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 (- lambda2 (/ (PI) 2)))) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (- lambda2 (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/2 (/ (PI) lambda2)) 1)))))
#s(approx (- lambda2 (/ (PI) 2)) (.f64 (-.f64 (.f64 (/.f64 (PI.f64) lambda2) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (neg.f64 lambda2)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))))) (+.f64 (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) (cos.f64 phi1))) lambda1))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (/ (- (pow (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) lambda1))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (/.f64 (fma.f64 (neg.f64 lambda1) lambda1 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1)))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) #s(hole binary64 (- (pow (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) 2) (pow lambda1 2))))
#s(approx (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (fma.f64 (neg.f64 lambda1) lambda1 (pow.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) #s(hole binary64 (pow (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) 2)))
#s(approx (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
#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)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2))))))) (atan2.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) #s(literal 1 binary64)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) phi1) phi1 (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) #s(literal 1 binary64)))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (-.f64 (.f64 (*.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) phi1) phi1 (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (-.f64 (.f64 (*.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) phi1) phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) #s(literal 1 binary64)))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (.f64 (-.f64 (.f64 (*.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) phi1) phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64)))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (.f64 (-.f64 (.f64 (*.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) phi1) phi1 (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (+.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (+.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))) (.f64 phi2 phi2)) (*.f64 phi2 phi2))) (cos.f64 phi1)))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* -1/2 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* (cos lambda2) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* 1/24 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (fma.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* 1/24 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (fma.f64 (fma.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))) (.f64 phi2 phi2) (.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64))) (*.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (fma.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))) (.f64 phi2 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(literal 1 binary64))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) phi2) phi2) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64))) (*.f64 phi2 phi2) (+.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (sin (- lambda1 (- lambda2 (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))) (.f64 phi2 phi2)) (*.f64 phi2 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 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (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 (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #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 (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))) (.f64 phi2 phi2) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) phi2) phi2 (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (.f64 (cos.f64 lambda1) (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64))) (*.f64 phi2 phi2) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1))))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 lambda1) (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))) (.f64 phi2 phi2) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))) (*.f64 phi2 phi2) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (cos phi1))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) phi2) phi2 (+.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (.f64 (cos.f64 lambda2) (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64))) (*.f64 phi2 phi2) (+.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2))))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 lambda2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))) (.f64 phi2 phi2) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (*.f64 phi2 phi2) (+.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (cos phi2) (cos.f64 phi2))

rewrite223.0ms (1.4%)

Memory

0.5MiB live, 191.8MiB allocated; 37ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	57	538
0	103	462
1	435	429
2	3390	429
0	8200	413

Stop Event

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

Counts

27 → 358

Calls

Call 1

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

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

eval128.0ms (0.8%)

Memory: 7.4MiB live, 197.3MiB allocated; 24ms collecting garbage
Compiler: Compiled 46 787 to 3 321 computations (92.9% saved)

prune84.0ms (0.5%)

Memory

4.6MiB live, 98.2MiB allocated; 10ms collecting garbage

Pruning

54 alts after pruning (53 fresh and 1 done)

	Pruned	Kept	Total
New	791	34	825
Fresh	18	19	37
Picked	5	0	5
Done	0	1	1
Total	814	54	868

Accuracy

99.9%

Counts

868 → 54

Alt Table

Click to see full alt table

Status	Accuracy	Program
	44.8%	(/.f64 (fma.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (*.f64 lambda1 lambda1))))
	52.4%	(/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (neg.f64 lambda1) lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) lambda1))
	46.9%	(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))) lambda1))
	41.3%	(/.f64 (-.f64 (pow.f64 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) lambda1))
	94.6%	(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda2 lambda1))) (cos.f64 phi2)) (sin.f64 (+.f64 lambda2 lambda1))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	82.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
▶	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) #s(literal 1 binary64)))))
	79.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (cos.f64 phi1))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
	88.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)) (-.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	94.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda1 lambda2))) (sin.f64 (+.f64 lambda1 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	93.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
	70.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (/ (pow ( (cos (- lambda2 lambda1)) (cos phi2)) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (/ (pow (cos phi1) 2) (- (* (cos (- lambda2 lambda1)) (cos phi2)) (cos 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)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 1 binary64)))))))
	59.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi1)))))
	86.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 2 binary64)))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 2 binary64))))))))
	80.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda2 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1))))))
▶	76.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))))))
	81.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
	79.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1))))))
	81.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) lambda1 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1))))))
	69.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) #s(literal 1 binary64))))))
	69.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
	68.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (+ ( (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (sin.f64 lambda1))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))
	68.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (+ ( (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (sin.f64 lambda1))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
	92.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (/.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))))
	92.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (-.f64 (/.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
▶	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))))
	79.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
	67.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	88.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	78.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	67.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
	78.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	68.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)))))
	68.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi1)))))
	62.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))))
	77.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
	63.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) #s(literal 1 binary64))))))
	68.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
▶	68.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
	68.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 lambda2) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	62.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	64.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	99.0%	#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (fma.f64 (/.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) lambda1 lambda1))
▶	99.0%	#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 1 binary64))))
✓	55.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 5 144 to 2 771 computations (46.1% saved)

simplify151.0ms (1%)

Memory

17.7MiB live, 111.2MiB allocated; 12ms collecting garbage

Localize:

Found 20 expressions of interest:

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	85	850
0	140	839
1	259	839
2	518	839
3	1143	817
4	2395	811
5	5847	811
0	8200	797

Stop Event

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

Calls

Call 1

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

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

localize604.0ms (3.9%)

Memory

17.6MiB live, 677.3MiB allocated; 94ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.158535009768442	(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
accuracy	0.1796875	(atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) #s(literal 1 binary64))))
accuracy	0.46332238197146663	(fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) #s(literal 1 binary64))
accuracy	30.712776108561513	#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) #s(literal 1 binary64)))
accuracy	0.1796875	(atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))
accuracy	0.45640889865764606	(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))
accuracy	32.61976846547151	#s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))
accuracy	33.20316651675509	#s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))
accuracy	0.34907423300806595	(fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))
accuracy	15.262716906098404	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	28.873628998025726	#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))))
accuracy	30.047531046614594	#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64)))
accuracy	15.262716906098404	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	24.016529651987035	#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1)))
accuracy	25.404200231964467	#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2)))
accuracy	26.04564691285163	#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))
accuracy	0.23046875	(/.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1))
accuracy	0.4668701170369923	(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))
accuracy	15.262716906098404	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	15.40574280565419	(cos.f64 (-.f64 lambda1 lambda2))

Samples

503.0ms	191×	1	valid
41.0ms	65×	0	valid

Compiler

Compiled 608 to 69 computations (88.7% saved)

Precisions

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

ival-cos: 124.0ms (29.9% of total)

adjust: 78.0ms (18.8% of total)

ival-mult: 68.0ms (16.4% of total)

ival-add: 41.0ms (9.9% of total)

ival-sin: 40.0ms (9.6% of total)

ival-atan2: 38.0ms (9.2% of total)

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

ival-pow2: 5.0ms (1.2% of total)

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

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

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

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

exact: 0.0ms (0% of total)

series161.0ms (1%)

Memory

-34.9MiB live, 116.3MiB allocated; 14ms collecting garbage

Counts

32 → 245

Calls

Call 1

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

Outputs
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (neg lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 (* -1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1))))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 (/ (+ (* -1 lambda1) (* -1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))) lambda1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos 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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) #s(hole binary64 (* -1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1))))
#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 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (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) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos 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 (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 lambda1))
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 lambda1))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 -1))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 (- (* -1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) 1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)) 1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) #s(hole binary64 (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) 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 (- lambda2 lambda1)) #s(hole binary64 (cos (+ lambda2 (* -1 lambda1)))))
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) 1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (/ (- (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda2 (* (cos phi2) (sin (neg lambda1))))) (* (cos phi2) (cos (neg lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi2) (cos (neg lambda1))))))) (* (cos phi2) (cos (neg lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi2) (sin (neg lambda1))))))))) (* (cos phi2) (cos (neg lambda1)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2))))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (cos phi2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (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) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos 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 lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (* (cos lambda2) (cos phi2)))))
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) lambda1)) 1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (/ (- (pow (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) lambda1))))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 (- (* -1 (/ (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) lambda1)) 1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2)))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) #s(hole binary64 (* -1 (/ (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 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 (- lambda2 lambda1)) #s(hole binary64 (cos (neg (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda2 lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda2 lambda1))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda2 lambda1))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi2 2) (cos (- lambda2 lambda1))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda2 lambda1)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi2 2) (cos (- lambda2 lambda1))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda2 lambda1)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1)))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* -1/2 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* (cos lambda2) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* 1/24 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* 1/24 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 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 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1))))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (cos phi1))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2))))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (cos lambda2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos lambda2) (* -1/2 (* (pow phi2 2) (cos lambda2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))

Calls

12 calls:

Time	Variable		Point	Expression
50.0ms	lambda1	@	0	((* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (cos (- lambda1 lambda2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) 1) (sin (- lambda1 lambda2)) (cos (- lambda2 lambda1)) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) (* (sin lambda1) (sin lambda2)))
40.0ms	lambda2	@	-inf	((* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (cos (- lambda1 lambda2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) 1) (sin (- lambda1 lambda2)) (cos (- lambda2 lambda1)) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) (* (sin lambda1) (sin lambda2)))
15.0ms	phi2	@	-inf	((* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (cos (- lambda1 lambda2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) 1) (sin (- lambda1 lambda2)) (cos (- lambda2 lambda1)) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) (* (sin lambda1) (sin lambda2)))
7.0ms	phi2	@	inf	((* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (cos (- lambda1 lambda2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) 1) (sin (- lambda1 lambda2)) (cos (- lambda2 lambda1)) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) (* (sin lambda1) (sin lambda2)))
6.0ms	phi1	@	inf	((* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (cos (- lambda1 lambda2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) 1) (sin (- lambda1 lambda2)) (cos (- lambda2 lambda1)) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) (* (sin lambda1) (sin lambda2)))

simplify231.0ms (1.5%)

Memory

39.4MiB live, 174.2MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	889	7925
1	2698	7638
0	8561	7034

Stop Event

1×	iter limit
1×	node limit

Counts

245 → 245

Calls

Call 1

Inputs
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (neg lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 (* -1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1))))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 (/ (+ (* -1 lambda1) (* -1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))) lambda1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos 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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) #s(hole binary64 (* -1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1))))
#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 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (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) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos 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 (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 lambda1))
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 lambda1))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 -1))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 (- (* -1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) 1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (cos (- lambda2 lambda1)) #s(hole binary64 (cos (- lambda2 lambda1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1)))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)) 1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) #s(hole binary64 (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) 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 (- lambda2 lambda1)) #s(hole binary64 (cos (+ lambda2 (* -1 lambda1)))))
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) 1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (/ (- (pow (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda2 (* (cos phi2) (sin (neg lambda1))))) (* (cos phi2) (cos (neg lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (neg lambda1)))) (* -1/2 (* lambda2 (* (cos phi2) (cos (neg lambda1))))))) (* (cos phi2) (cos (neg lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (cos (neg lambda1)))) (* 1/6 (* lambda2 (* (cos phi2) (sin (neg lambda1))))))))) (* (cos phi2) (cos (neg lambda1)))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos phi2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2))))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (cos phi2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (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) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos 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 lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (* (cos lambda2) (cos phi2)))))
#s(approx (* (neg lambda1) (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) lambda1)) 1)))))
#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) #s(hole binary64 (/ (- (pow (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) lambda1))))
#s(approx (- (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) 1) #s(hole binary64 (- (* -1 (/ (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))) lambda1)) 1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2))))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda1 (* -1 lambda2)))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (neg lambda1)) #s(hole binary64 (* -1 (/ (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 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 (- lambda2 lambda1)) #s(hole binary64 (cos (neg (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda2 lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda2 lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda2 lambda1))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda2 lambda1))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (cos (- lambda2 lambda1)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda2 lambda1)) (* -1/2 (* (pow phi2 2) (cos (- lambda2 lambda1))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda2 lambda1)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* 1/24 (* (pow phi2 2) (cos (- lambda2 lambda1))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda2 lambda1)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda2 lambda1)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda2 lambda1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda2 lambda1)))) (* 1/24 (cos (- lambda2 lambda1)))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* -1/2 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* (cos lambda2) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* 1/24 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))))))))))
#s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin lambda2))) (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))) (* 1/24 (+ (* -1 (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1))))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 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 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (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 (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1)))))))))
#s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1))))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (cos phi1))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2))))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (cos lambda2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos lambda2) (* -1/2 (* (pow phi2 2) (cos lambda2)))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2)))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))

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

rewrite202.0ms (1.3%)

Memory

-30.7MiB live, 218.3MiB allocated; 32ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	85	696
0	140	619
1	596	595
0	5151	584

Stop Event

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

Counts

32 → 332

Calls

Call 1

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

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

eval118.0ms (0.8%)

Memory: 8.7MiB live, 195.6MiB allocated; 26ms collecting garbage
Compiler: Compiled 40 180 to 3 126 computations (92.2% saved)

prune208.0ms (1.3%)

Memory

-7.3MiB live, 219.5MiB allocated; 56ms collecting garbage

Pruning

63 alts after pruning (60 fresh and 3 done)

	Pruned	Kept	Total
New	582	30	612
Fresh	18	30	48
Picked	3	2	5
Done	0	1	1
Total	603	63	666

Accuracy

100.0%

Counts

666 → 63

Alt Table

Click to see full alt table

Status	Accuracy	Program
	44.8%	(/.f64 (fma.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) (*.f64 lambda1 lambda1))))
	52.4%	(/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (neg.f64 lambda1) lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) lambda1))
	46.9%	(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))) lambda1))
	41.0%	(/.f64 (-.f64 (pow.f64 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))) lambda1))
	65.0%	(+.f64 lambda1 (atan2.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 lambda1) lambda2)) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64)) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda2 lambda1))) (cos.f64 phi2)) (sin.f64 (+.f64 lambda2 lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	67.5%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))))))
	77.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))))))
	82.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
✓	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) #s(literal 1 binary64)))))
	69.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) #s(approx (+ (* (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda1) (sin lambda2))) (cos phi2)) 1) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) #s(literal 1 binary64)))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda2 lambda1))) (sin.f64 (+.f64 lambda2 lambda1)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))))))
	93.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
	59.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi1)))))
	86.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 2 binary64)))))))
	80.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda2 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1))))))
	76.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 1 binary64))))))
	68.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2)) #s(literal 1 binary64))))))
	67.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))) #s(literal 1 binary64))))))
	72.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(literal 1 binary64))))))
	76.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 2 binary64))))))))
	54.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal -1 binary64)))))))
	76.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 2 binary64)))))))))
	81.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
	79.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1))))))
	69.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(approx (+ (* (cos lambda2) (cos phi2)) 1) (+.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))
	68.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(approx (+ (* (cos lambda2) (cos phi2)) 1) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))
	81.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) lambda1 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1))))))
	69.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) #s(literal 1 binary64))))))
	68.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (+ ( (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (sin.f64 lambda1))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
	92.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (/.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))))
	79.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))))
	79.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
	67.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	88.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	71.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(literal 1 binary64))))))
	61.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2)))) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2) #s(literal 1 binary64)))))
	68.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
	64.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
	67.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
	78.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	68.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)))))
	68.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi1)))))
	62.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))))
	77.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
	63.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) #s(literal 1 binary64))))))
	68.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
✓	68.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
	68.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
	61.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
	62.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
	99.0%	#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (fma.f64 (/.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) lambda1 lambda1))
	85.4%	#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 2 binary64)) #s(literal 1 binary64)) (neg.f64 lambda1)) (-.f64 (/.f64 (atan2.f64 (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal -1 binary64))))
	79.3%	#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (.f64 (neg.f64 lambda1) (/.f64 (-.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (-.f64 (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal -1 binary64)) (pow.f64 (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 2 binary64))))))
	85.4%	#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (.f64 (neg.f64 lambda1) (/.f64 (-.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (/.f64 (atan2.f64 (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal -1 binary64)))))
	99.0%	#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 1 binary64))))
	99.0%	#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) (cos.f64 (+.f64 lambda2 lambda1))) (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 1 binary64))))
	79.3%	#s(approx (/ (- (pow (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) 2) (* lambda1 lambda1)) (- (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 phi1))) (neg.f64 lambda1)) #s(literal 1 binary64))))
✓	55.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 9 198 to 2 488 computations (73% saved)

regimes314.0ms (2%)

Memory

-5.8MiB live, 348.1MiB allocated; 101ms collecting garbage

Counts

124 → 1

Calls

Call 1

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

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))

Calls

7 calls:

83.0ms	phi1
64.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
40.0ms	phi2
32.0ms	lambda2
31.0ms	lambda1

Results

Accuracy	Segments	Branch
99.7%	1	`(cos.f64 phi1)`
99.7%	1	`(cos.f64 phi2)`
99.7%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
99.7%	1	`lambda1`
99.7%	1	`lambda2`
99.7%	1	`phi1`
99.7%	1	`phi2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes245.0ms (1.6%)

Memory

32.8MiB live, 173.0MiB allocated; 15ms collecting garbage

Counts

97 → 1

Calls

Call 1

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

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (*.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))

Calls

7 calls:

65.0ms	(cos.f64 phi2)
47.0ms	phi1
39.0ms	lambda1
23.0ms	lambda2
23.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))

Results

Accuracy	Segments	Branch
99.0%	1	`(cos.f64 phi1)`
99.0%	1	`(cos.f64 phi2)`
99.0%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
99.0%	1	`lambda1`
99.0%	1	`lambda2`
99.0%	1	`phi1`
99.0%	1	`phi2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes198.0ms (1.3%)

Memory

-8.1MiB live, 182.3MiB allocated; 16ms collecting garbage

Counts

75 → 1

Calls

Call 1

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

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))

Calls

7 calls:

42.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
35.0ms	phi1
34.0ms	lambda2
20.0ms	(cos.f64 phi1)
19.0ms	lambda1

Results

Accuracy	Segments	Branch
99.0%	1	`(cos.f64 phi1)`
99.0%	1	`(cos.f64 phi2)`
99.0%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
99.0%	1	`lambda1`
99.0%	1	`lambda2`
99.0%	1	`phi1`
99.0%	1	`phi2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes99.0ms (0.6%)

Memory

-19.3MiB live, 166.8MiB allocated; 29ms collecting garbage

Counts

46 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

23.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
14.0ms	phi1
14.0ms	phi2
13.0ms	lambda2
11.0ms	lambda1

Results

Accuracy	Segments	Branch
98.4%	1	`lambda2`
98.4%	1	`(cos.f64 phi1)`
98.4%	1	`(cos.f64 phi2)`
98.4%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
98.4%	1	`lambda1`
98.4%	1	`phi1`
98.4%	1	`phi2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes78.0ms (0.5%)

Memory

26.3MiB live, 119.6MiB allocated; 4ms collecting garbage

Counts

43 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

12.0ms	lambda2
12.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
11.0ms	phi1
11.0ms	phi2
11.0ms	lambda1

Results

Accuracy	Segments	Branch
94.1%	2	`(cos.f64 phi1)`
94.2%	2	`(cos.f64 phi2)`
97.0%	3	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
90.6%	2	`lambda1`
99.0%	3	`lambda2`
94.1%	2	`phi1`
94.6%	2	`phi2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes26.0ms (0.2%)

Memory

-28.2MiB live, 21.3MiB allocated; 25ms collecting garbage

Counts

42 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

24.0ms

lambda2

Results

Accuracy	Segments	Branch
98.5%	3	`lambda2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes86.0ms (0.5%)

Memory

12.4MiB live, 136.1MiB allocated; 29ms collecting garbage

Counts

41 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

6 calls:

16.0ms	phi1
12.0ms	phi2
10.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
10.0ms	lambda2
10.0ms	(cos.f64 phi1)

Results

Accuracy	Segments	Branch
93.2%	3	`(cos.f64 phi1)`
91.4%	2	`phi1`
90.8%	2	`(cos.f64 phi2)`
90.8%	2	`phi2`
94.0%	5	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
90.8%	3	`lambda2`

Compiler

Compiled 27 to 36 computations (-33.3% saved)

regimes57.0ms (0.4%)

Memory

5.2MiB live, 62.3MiB allocated; 25ms collecting garbage

Counts

35 → 2

Calls

Call 1

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

Outputs

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

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

Calls

4 calls:

29.0ms	(cos.f64 phi2)
9.0ms	phi1
9.0ms	phi2
8.0ms	(cos.f64 phi1)

Results

Accuracy	Segments	Branch
90.8%	2	`phi2`
90.8%	2	`(cos.f64 phi2)`
89.4%	2	`phi1`
89.4%	2	`(cos.f64 phi1)`

Compiler

Compiled 6 to 18 computations (-200% saved)

regimes17.0ms (0.1%)

Memory

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

Counts

32 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

8.0ms	phi2
7.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
90.6%	2	`phi2`
90.6%	2	`(cos.f64 phi2)`

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes42.0ms (0.3%)

Memory

4.3MiB live, 52.0MiB allocated; 6ms collecting garbage

Counts

20 → 3

Calls

Call 1

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

Outputs

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

(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(approx (+ (* (cos lambda2) (cos phi2)) 1) (+.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))

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

Calls

7 calls:

8.0ms	phi2
5.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
5.0ms	phi1
5.0ms	lambda2
5.0ms	lambda1

Results

Accuracy	Segments	Branch
78.0%	1	`lambda2`
83.1%	3	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
80.0%	2	`phi1`
80.2%	2	`(cos.f64 phi1)`
78.0%	1	`lambda1`
82.9%	2	`phi2`
85.5%	3	`(cos.f64 phi2)`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes4.0ms (0%)

Memory

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

Counts

12 → 2

Calls

Call 1

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

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(approx (+ (* (cos lambda2) (cos phi2)) 1) (+.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))

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

Calls

1 calls:

3.0ms

(cos.f64 phi2)

Results

Accuracy	Segments	Branch
83.0%	2	`(cos.f64 phi2)`

Compiler

Compiled 2 to 5 computations (-150% saved)

regimes21.0ms (0.1%)

Memory

-15.8MiB live, 30.3MiB allocated; 2ms collecting garbage

Counts

8 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(approx (+ (* (cos lambda2) (cos phi2)) 1) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))

Outputs

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

Calls

7 calls:

4.0ms	(cos.f64 phi2)
3.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
3.0ms	phi1
3.0ms	lambda2
3.0ms	phi2

Results

Accuracy	Segments	Branch
77.9%	1	`lambda2`
77.9%	1	`lambda1`
77.9%	1	`phi1`
77.9%	1	`(cos.f64 phi1)`
77.9%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
77.9%	1	`phi2`
77.9%	1	`(cos.f64 phi2)`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes18.0ms (0.1%)

Memory

-20.6MiB live, 25.7MiB allocated; 3ms collecting garbage

Counts

6 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) #s(literal 1 binary64))))))

Outputs

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

Calls

7 calls:

4.0ms	phi2
2.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
2.0ms	lambda2
2.0ms	phi1
2.0ms	lambda1

Results

Accuracy	Segments	Branch
68.7%	1	`phi1`
68.7%	1	`phi2`
68.7%	1	`lambda2`
68.7%	1	`(cos.f64 phi1)`
68.7%	1	`(cos.f64 phi2)`
68.7%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
68.7%	1	`lambda1`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes13.0ms (0.1%)

Memory

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

Counts

4 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))

Outputs

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

Calls

7 calls:

2.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
2.0ms	lambda1
2.0ms	phi2
2.0ms	phi1
2.0ms	lambda2

Results

Accuracy	Segments	Branch
68.6%	1	`(cos.f64 phi2)`
68.6%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
68.6%	1	`lambda2`
68.6%	1	`phi1`
68.6%	1	`phi2`
68.6%	1	`(cos.f64 phi1)`
68.6%	1	`lambda1`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes20.0ms (0.1%)

Memory

-27.0MiB live, 20.2MiB allocated; 11ms collecting garbage

Counts

3 → 3

Calls

Call 1

Inputs

#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

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

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

Outputs

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

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

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

Calls

7 calls:

10.0ms	(cos.f64 phi1)
2.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
2.0ms	phi2
2.0ms	phi1
2.0ms	lambda2

Results

Accuracy	Segments	Branch
62.8%	1	`(cos.f64 phi1)`
62.8%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
62.8%	1	`phi2`
64.7%	2	`phi1`
62.8%	1	`(cos.f64 phi2)`
62.8%	1	`lambda1`
67.4%	3	`lambda2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes9.0ms (0.1%)

Memory

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

Counts

2 → 1

Calls

Call 1

Inputs

#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

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

Outputs

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
61.2%	1	`(cos.f64 phi1)`
61.2%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
61.2%	1	`(cos.f64 phi2)`
61.2%	1	`phi2`
61.2%	1	`lambda1`
61.2%	1	`phi1`
61.2%	1	`lambda2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes8.0ms (0%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Outputs
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
55.6%	1	`(cos.f64 phi1)`
55.6%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
55.6%	1	`(cos.f64 phi2)`
55.6%	1	`lambda1`
55.6%	1	`phi2`
55.6%	1	`phi1`
55.6%	1	`lambda2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

bsearch95.0ms (0.6%)

Memory

-3.6MiB live, 88.7MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
36.0ms	1.542193217430098e-16	8.319280246833402e-16
55.0ms	-2.209281787710003e-5	-2.4754334632749085e-14

Samples

60.0ms	91×	1	valid
19.0ms	149×	0	valid

Compiler

Compiled 923 to 681 computations (26.2% saved)

Precisions

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

ival-cos: 40.0ms (57.1% of total)

ival-sin: 9.0ms (12.9% of total)

adjust: 6.0ms (8.6% of total)

ival-mult: 6.0ms (8.6% of total)

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

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

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

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

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

bsearch29.0ms (0.2%)

Memory

-19.3MiB live, 26.0MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	predicate-same

Steps

Time	Left	Right
7.0ms	1.542193217430098e-16	8.319280246833402e-16
20.0ms	-2.209281787710003e-5	-2.4754334632749085e-14

Samples

18.0ms	24×	1	valid
5.0ms	40×	0	valid

Compiler

Compiled 753 to 531 computations (29.5% saved)

Precisions

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

ival-cos: 13.0ms (62.6% of total)

adjust: 2.0ms (9.6% of total)

ival-sin: 2.0ms (9.6% of total)

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

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

ival-atan2: 1.0ms (4.8% of total)

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

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

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

bsearch15.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
0.0ms	0.9999931843272469	0.9999936927745819
13.0ms	0.6712932892028369	0.7506780903195097

Samples

10.0ms	20×	1	valid
1.0ms	12×	0	valid

Compiler

Compiled 157 to 117 computations (25.5% saved)

Precisions

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

ival-cos: 5.0ms (47.8% of total)

ival-sin: 2.0ms (19.1% of total)

adjust: 1.0ms (9.6% of total)

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

ival-atan2: 1.0ms (9.6% of total)

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

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

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

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

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9999999999999403	1.0

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9999999999999403	1.0

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.8849199455475164	0.9082901198103877
0.0ms	0.2539569350160218	0.2646131251721244

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.8849199455475164	0.9082901198103877

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch117.0ms (0.7%)

Memory

15.2MiB live, 107.4MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
54.0ms	1.6807580088051246e-181	4.2245359668053866e-173
57.0ms	-1.1627300693490767e-61	-2.67398315848174e-72

Samples

72.0ms	106×	1	valid
24.0ms	198×	0	valid

Compiler

Compiled 1 676 to 1 028 computations (38.7% saved)

Precisions

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

ival-cos: 48.0ms (56.1% of total)

ival-sin: 10.0ms (11.7% of total)

ival-add: 8.0ms (9.3% of total)

adjust: 7.0ms (8.2% of total)

ival-mult: 5.0ms (5.8% of total)

ival-atan2: 4.0ms (4.7% of total)

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

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

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

simplify51.0ms (0.3%)

Memory

-9.7MiB live, 35.6MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	152	1001
1	211	1001
2	284	1001
3	464	1001
4	936	1001
5	2598	1001

Stop Event

1×	node limit

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
(if (<=.f64 lambda2 #s(literal -8689154328480147/75557863725914323419136 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (if (<=.f64 lambda2 #s(literal 8315787937497185/10141204801825835211973625643008 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))))
(if (<=.f64 lambda2 #s(literal -4951760157141521/1237940039285380274899124224 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (if (<=.f64 lambda2 #s(literal 4005775896721205/5070602400912917605986812821504 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) lambda1 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))))
(if (<=.f64 (cos.f64 phi1) #s(literal 3242591731706757/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) (if (<=.f64 (cos.f64 phi1) #s(literal 2251785176986459/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) #s(literal 1 binary64)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4503599627370227/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) lambda1 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4503599627370227/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 1170935903116329/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (if (<=.f64 (cos.f64 phi2) #s(literal 8106479329266893/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(approx (+ (* (cos lambda2) (cos phi2)) 1) (+.f64 #s(literal 1 binary64) (cos.f64 phi2))))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 8106479329266893/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(approx (+ (* (cos lambda2) (cos phi2)) 1) (+.f64 #s(literal 1 binary64) (cos.f64 phi2))))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
(if (<=.f64 lambda2 #s(literal -3978585891278293/62165404551223330269422781018352605012557018849668464680057997111644937126566671941632 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (if (<=.f64 lambda2 #s(literal 1893591076649837/1113877103911668754551067286547922686741510866027480451801560673315252726369306002564920119950530126899082595110740822097336109551117050292542153642510306198303709637294986560078826707091456 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
(if (<=.f64 lambda2 #s(literal -8689154328480147/75557863725914323419136 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (if (<=.f64 lambda2 #s(literal 8315787937497185/10141204801825835211973625643008 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))))
(if (or (<=.f64 lambda2 #s(literal -8689154328480147/75557863725914323419136 binary64)) (not (<=.f64 lambda2 #s(literal 8315787937497185/10141204801825835211973625643008 binary64)))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))))
(if (<=.f64 lambda2 #s(literal -4951760157141521/1237940039285380274899124224 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (if (<=.f64 lambda2 #s(literal 4005775896721205/5070602400912917605986812821504 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) lambda1 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))))
(if (or (<=.f64 lambda2 #s(literal -4951760157141521/1237940039285380274899124224 binary64)) (not (<=.f64 lambda2 #s(literal 4005775896721205/5070602400912917605986812821504 binary64)))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) lambda1 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1)))))))
(if (<=.f64 (cos.f64 phi1) #s(literal 3242591731706757/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) (if (<=.f64 (cos.f64 phi1) #s(literal 2251785176986459/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) #s(literal 1 binary64)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4503599627370227/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) lambda1 #s(literal 1 binary64)) (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4503599627370227/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 1170935903116329/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (if (<=.f64 (cos.f64 phi2) #s(literal 8106479329266893/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(approx (+ (* (cos lambda2) (cos phi2)) 1) (+.f64 #s(literal 1 binary64) (cos.f64 phi2))))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 8106479329266893/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) #s(approx (+ (* (cos lambda2) (cos phi2)) 1) (+.f64 #s(literal 1 binary64) (cos.f64 phi2))))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
(if (<=.f64 lambda2 #s(literal -3978585891278293/62165404551223330269422781018352605012557018849668464680057997111644937126566671941632 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (if (<=.f64 lambda2 #s(literal 1893591076649837/1113877103911668754551067286547922686741510866027480451801560673315252726369306002564920119950530126899082595110740822097336109551117050292542153642510306198303709637294986560078826707091456 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))))
(if (or (<=.f64 lambda2 #s(literal -3978585891278293/62165404551223330269422781018352605012557018849668464680057997111644937126566671941632 binary64)) (not (<=.f64 lambda2 #s(literal 1893591076649837/1113877103911668754551067286547922686741510866027480451801560673315252726369306002564920119950530126899082595110740822097336109551117050292542153642510306198303709637294986560078826707091456 binary64)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

derivations709.0ms (4.5%)

Memory

35.7MiB live, 447.4MiB allocated; 91ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 001 to 156 computations (84.4% saved)

preprocess120.0ms (0.8%)

Memory

13.3MiB live, 149.2MiB allocated; 29ms collecting garbage

Remove

(abs phi2)

(abs phi1)

Compiler

Compiled 2 306 to 500 computations (78.3% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze870.0ms (5.6%)

sample5.5s (34.9%)

explain553.0ms (3.5%)

preprocess240.0ms (1.5%)

eval0.0ms (0%)

prune0.0ms (0%)

simplify154.0ms (1%)

localize245.0ms (1.6%)

series45.0ms (0.3%)

simplify173.0ms (1.1%)

rewrite214.0ms (1.4%)

eval693.0ms (4.4%)

prune29.0ms (0.2%)

simplify147.0ms (0.9%)

localize479.0ms (3.1%)

series114.0ms (0.7%)

simplify207.0ms (1.3%)

rewrite231.0ms (1.5%)

eval113.0ms (0.7%)

prune52.0ms (0.3%)

simplify193.0ms (1.2%)

localize583.0ms (3.7%)

series81.0ms (0.5%)

simplify269.0ms (1.7%)

rewrite223.0ms (1.4%)

eval128.0ms (0.8%)

prune84.0ms (0.5%)

simplify151.0ms (1%)

localize604.0ms (3.9%)

series161.0ms (1%)

simplify231.0ms (1.5%)

rewrite202.0ms (1.3%)

eval118.0ms (0.8%)

prune208.0ms (1.3%)

regimes314.0ms (2%)

regimes245.0ms (1.6%)

regimes198.0ms (1.3%)

regimes99.0ms (0.6%)

regimes78.0ms (0.5%)

regimes26.0ms (0.2%)

regimes86.0ms (0.5%)

regimes57.0ms (0.4%)

regimes17.0ms (0.1%)

regimes42.0ms (0.3%)

regimes4.0ms (0%)

regimes21.0ms (0.1%)

regimes18.0ms (0.1%)

regimes13.0ms (0.1%)

regimes20.0ms (0.1%)

regimes9.0ms (0.1%)

regimes8.0ms (0%)

bsearch95.0ms (0.6%)

bsearch29.0ms (0.2%)

bsearch15.0ms (0.1%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch117.0ms (0.7%)

simplify51.0ms (0.3%)

derivations709.0ms (4.5%)

preprocess120.0ms (0.8%)

end0.0ms (0%)

Profiling