Metrics for Bearing on a great circle

start0.0ms (0%)

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

analyze841.0ms (3.4%)

Memory

40.5MiB live, 798.4MiB allocated; 92ms 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
7.8%	7.8%	92%	0.2%	0%	0%	0%	9
7.8%	7.8%	92%	0.2%	0%	0%	0%	10
10.2%	10.1%	89.7%	0.2%	0%	0%	0%	11
10.2%	10.1%	89.7%	0.2%	0%	0%	0%	12

Compiler

Compiled 26 to 19 computations (26.9% saved)

sample7.1s (29.1%)

Memory

95.4MiB live, 5 714.0MiB allocated; 728ms collecting garbage

Samples

5.9s	5 922×	1	valid
566.0ms	2 334×	0	valid

Precisions

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

ival-cos: 2.5s (41.6% of total)

ival-sin: 2.1s (35.1% of total)

adjust: 498.0ms (8.3% of total)

ival-mult: 426.0ms (7.1% of total)

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

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

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

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

Bogosity

explain593.0ms (2.4%)

Memory

-2.5MiB live, 673.5MiB allocated; 57ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Example	Subexpression
74	122	(3.823835566764085e+185 6.407081122341537e-196 -8.722555358317805e-191 2.5901777480368624e+31)	-	`(sin.f64 (-.f64 lambda1 lambda2))`
74	122	(3.823835566764085e+185 6.407081122341537e-196 -8.722555358317805e-191 2.5901777480368624e+31)	-	`(cos.f64 (-.f64 lambda1 lambda2))`
1	0	-	-	`(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
0	0	-	-	`(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))`
0	0	-	-	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
0	0	-	-	`lambda2`
0	0	-	-	`phi2`
0	0	-	-	`(*.f64 (sin.f64 phi1) (cos.f64 phi2))`
0	0	-	-	`(-.f64 lambda1 lambda2)`
0	0	-	-	`(sin.f64 phi1)`
0	0	-	-	`(cos.f64 phi2)`
0	0	-	-	`lambda1`
0	0	-	-	`phi1`
0	0	-	-	`(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))`
0	0	-	-	`(sin.f64 phi2)`
0	0	-	-	`(*.f64 (cos.f64 phi1) (sin.f64 phi2))`
0	0	-	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

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

Confusion

	Predicted +	Predicted -
+	66	0
-	130	60

Precision

0.336734693877551

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	66	0	0
-	130	1	59

Precision?

0.3350253807106599

Recall?

1.0

Freqs

test

number	freq
0	60
2	195
3	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

366.0ms	384×	1	valid
26.0ms	128×	0	valid

Compiler

Compiled 208 to 55 computations (73.6% saved)

Precisions

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

ival-sin: 133.0ms (38% of total)

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

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

adjust: 30.0ms (8.6% of total)

ival-sub: 23.0ms (6.6% of total)

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

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

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

preprocess208.0ms (0.9%)

Memory

-21.4MiB live, 212.5MiB allocated; 21ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	104	352
1	246	350
2	545	350
3	1297	350
4	2880	350
5	6306	350
0	17	24
0	30	24
1	54	24
2	97	24
3	213	24
4	464	24
5	1139	24
6	3011	24
7	6204	24
0	8370	24

Stop Event

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

Calls

Call 1

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

Outputs

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

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

Compiler

Compiled 24 to 17 computations (29.2% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

Compiler

Compiled 24 to 17 computations (29.2% saved)

simplify186.0ms (0.8%)

Memory

-0.1MiB live, 146.2MiB allocated; 11ms collecting garbage

Localize:

Found 4 expressions of interest:

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	17	90
0	30	90
1	54	90
2	97	90
3	213	90
4	464	90
5	1139	90
6	3011	90
7	6204	90
0	8370	90

Stop Event

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

Calls

Call 1

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

Outputs
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (*.f64 (sin.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)
lambda1
lambda2
(cos.f64 phi2)
phi2
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (.f64 (sin.f64 phi2) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(*.f64 (sin.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
phi1
(sin.f64 phi2)
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
(sin.f64 phi1)
(cos.f64 (-.f64 lambda1 lambda2))

localize265.0ms (1.1%)

Memory

-4.1MiB live, 188.5MiB allocated; 11ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.19140625	(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
accuracy	0.2578125	(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
accuracy	15.855944605597578	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	16.105768795392095	(sin.f64 (-.f64 lambda1 lambda2))

Samples

218.0ms	192×	1	valid
29.0ms	64×	0	valid

Compiler

Compiled 92 to 19 computations (79.3% saved)

Precisions

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

ival-cos: 107.0ms (46.6% of total)

ival-sin: 77.0ms (33.6% of total)

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

adjust: 13.0ms (5.7% of total)

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

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

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

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

series35.0ms (0.1%)

Memory

-0.7MiB live, 45.5MiB allocated; 5ms collecting garbage

Counts

6 → 67

Calls

Call 1

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

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

Calls

12 calls:

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

simplify154.0ms (0.6%)

Memory

32.7MiB live, 174.7MiB allocated; 15ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	317	1612
1	994	1537
2	3872	1514
0	8386	1457

Stop Event

1×	iter limit
1×	node limit

Counts

67 → 67

Calls

Call 1

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

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

rewrite177.0ms (0.7%)

Memory

-16.0MiB live, 222.6MiB allocated; 14ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	17	52
0	30	52
1	101	52
2	738	52
0	8205	52

Stop Event

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

Counts

6 → 181

Calls

Call 1

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

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

eval84.0ms (0.3%)

Memory: 28.5MiB live, 120.7MiB allocated; 27ms collecting garbage
Compiler: Compiled 11 267 to 1 384 computations (87.7% saved)

prune76.0ms (0.3%)

Memory

-12.6MiB live, 80.5MiB allocated; 11ms collecting garbage

Pruning

38 alts after pruning (38 fresh and 0 done)

	Pruned	Kept	Total
New	227	38	265
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	228	38	266

Accuracy

89.9%

Counts

266 → 38

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	89.5%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	13.6%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 lambda1 (-.f64 lambda2 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	39.8%	(atan2.f64 (/.f64 (+.f64 (sin.f64 (+.f64 phi2 (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	89.5%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	82.1%	(atan2.f64 (.f64 (/.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 (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	75.8%	(atan2.f64 (.f64 (/.f64 (.f64 (sin.f64 (+.f64 lambda2 lambda1)) (sin.f64 (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 lambda2 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	75.3%	(atan2.f64 (.f64 (-.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)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	89.5%	(atan2.f64 (.f64 (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	15.4%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))) (.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)) (pow.f64 lambda2 #s(literal 3 binary64)))) (.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	46.6%	(atan2.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	48.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (/.f64 (.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))))
▶	61.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (/.f64 (.f64 (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))))
	77.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	77.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))))
	67.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (-.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)))))))))
	56.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) lambda1) lambda2)))))
	56.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	63.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))))
	67.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	62.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))
	60.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
	66.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	43.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1))))))
	46.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) phi1))))
	44.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
	60.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	67.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (fma.f64 (/.f64 lambda1 lambda2) lambda2 (neg.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	62.8%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	47.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	46.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	77.5%	(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))
	60.9%	(atan2.f64 (.f64 #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)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	54.9%	(atan2.f64 (.f64 #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))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	59.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	57.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda1) (neg.f64 lambda2) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	38.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	38.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	43.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Compiler

Compiled 2 766 to 1 840 computations (33.5% saved)

simplify181.0ms (0.7%)

Memory

5.8MiB live, 191.3MiB allocated; 25ms collecting garbage

Localize:

Found 20 expressions of interest:

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	61	714
0	113	710
1	208	708
2	519	672
3	1621	672
4	5576	672
0	8632	667

Stop Event

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

Calls

Call 1

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

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

localize869.0ms (3.5%)

Memory

3.3MiB live, 881.6MiB allocated; 115ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	16.105768795392095	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	17.846580274803493	(sin.f64 (+.f64 phi1 phi2))
accuracy	18.37770315769912	(sin.f64 (-.f64 phi1 phi2))
accuracy	21.322930598161214	(+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))
accuracy	1.4893611679877568	(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64)))
accuracy	15.855944605597578	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	16.105768795392095	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	36.34799213430092	#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64))) (*.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2))))
accuracy	0.2578125	(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
accuracy	15.855944605597578	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	16.105768795392095	(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
accuracy	29.64656724395272	#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
accuracy	0.2578125	(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
accuracy	15.855944605597578	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	16.105768795392095	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	33.01575853274862	#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
accuracy	0.19624843175487938	(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)))
accuracy	0.203125	(.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)) (cos.f64 phi2))
accuracy	0.2578125	(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
accuracy	15.855944605597578	(cos.f64 (-.f64 lambda1 lambda2))

Samples

759.0ms	246×	1	valid
5.0ms	3×	2	valid
3.0ms	7×	0	valid

Compiler

Compiled 660 to 55 computations (91.7% saved)

Precisions

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

ival-cos: 258.0ms (38.3% of total)

ival-sin: 246.0ms (36.5% of total)

adjust: 58.0ms (8.6% of total)

ival-mult: 56.0ms (8.3% of total)

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

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

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

const: 8.0ms (1.2% of total)

ival-neg: 3.0ms (0.4% of total)

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

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

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

exact: 0.0ms (0% of total)

series98.0ms (0.4%)

Memory

-2.0MiB live, 135.3MiB allocated; 11ms collecting garbage

Counts

26 → 222

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable		Point	Expression
19.0ms	lambda2	@	-inf	((+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (* (* (sin (- lambda1 lambda2)) (+ (* 1/24 (* phi2 phi2)) -1/2)) (* phi2 phi2)) (sin (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (* (sin (- lambda1 lambda2)) (+ (* 1/24 (* phi2 phi2)) -1/2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (sin (- phi1 phi2)) (sin (+ phi1 phi2)))
14.0ms	phi2	@	inf	((+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (* (* (sin (- lambda1 lambda2)) (+ (* 1/24 (* phi2 phi2)) -1/2)) (* phi2 phi2)) (sin (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (* (sin (- lambda1 lambda2)) (+ (* 1/24 (* phi2 phi2)) -1/2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (sin (- phi1 phi2)) (sin (+ phi1 phi2)))
12.0ms	lambda1	@	inf	((+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (* (* (sin (- lambda1 lambda2)) (+ (* 1/24 (* phi2 phi2)) -1/2)) (* phi2 phi2)) (sin (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (* (sin (- lambda1 lambda2)) (+ (* 1/24 (* phi2 phi2)) -1/2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (sin (- phi1 phi2)) (sin (+ phi1 phi2)))
7.0ms	lambda1	@	-inf	((+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (* (* (sin (- lambda1 lambda2)) (+ (* 1/24 (* phi2 phi2)) -1/2)) (* phi2 phi2)) (sin (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (* (sin (- lambda1 lambda2)) (+ (* 1/24 (* phi2 phi2)) -1/2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (sin (- phi1 phi2)) (sin (+ phi1 phi2)))
7.0ms	lambda1	@	0	((+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (* (* (sin (- lambda1 lambda2)) (+ (* 1/24 (* phi2 phi2)) -1/2)) (* phi2 phi2)) (sin (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (* (sin (- lambda1 lambda2)) (+ (* 1/24 (* phi2 phi2)) -1/2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (sin (- phi1 phi2)) (sin (+ phi1 phi2)))

simplify229.0ms (0.9%)

Memory

-28.6MiB live, 214.6MiB allocated; 26ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1058	8140
1	3531	7854
0	8526	7572

Stop Event

1×	iter limit
1×	node limit

Counts

222 → 222

Calls

Call 1

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

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

rewrite171.0ms (0.7%)

Memory

6.4MiB live, 195.7MiB allocated; 17ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	61	402
0	113	376
1	363	334
2	3095	334
0	8009	334

Stop Event

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

Counts

26 → 385

Calls

Call 1

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

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

eval192.0ms (0.8%)

Memory: 16.7MiB live, 202.3MiB allocated; 29ms collecting garbage
Compiler: Compiled 43 767 to 3 381 computations (92.3% saved)

prune147.0ms (0.6%)

Memory

1.4MiB live, 196.5MiB allocated; 11ms collecting garbage

Pruning

80 alts after pruning (80 fresh and 0 done)

	Pruned	Kept	Total
New	804	67	871
Fresh	20	13	33
Picked	5	0	5
Done	0	0	0
Total	829	80	909

Accuracy

99.9%

Counts

909 → 80

Alt Table

Click to see full alt table

Status	Accuracy	Program
	53.0%	(atan2.f64 (fma.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) lambda2) lambda1)) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) lambda2) lambda1))) #s(literal 2 binary64)) (cos.f64 phi2) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)) (cos.f64 phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	79.6%	(atan2.f64 (fma.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda1)) (cos.f64 phi2) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)) (cos.f64 phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	99.8%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
▶	99.8%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	67.9%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	68.1%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	78.9%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	66.5%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
	77.9%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	57.2%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))))
	72.6%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	80.1%	(atan2.f64 (fma.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2) #s(approx ( (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	78.6%	(atan2.f64 (fma.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (cos.f64 phi2) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)) (cos.f64 phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	87.7%	(atan2.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	13.0%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	28.2%	(atan2.f64 (/.f64 (+.f64 (sin.f64 (+.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)) phi2)) (sin.f64 (-.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	82.5%	(atan2.f64 (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (cos.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) (pow.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (cos.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) (pow.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	73.7%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (/.f64 (.f64 (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))))
	75.8%	(atan2.f64 (.f64 (/.f64 (.f64 (sin.f64 (+.f64 lambda2 lambda1)) (sin.f64 (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 lambda2 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	15.4%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))) (.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)) (pow.f64 lambda2 #s(literal 3 binary64)))) (.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	77.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))
	75.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))))
	77.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1)))))
	75.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))))))
	49.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (/.f64 (.f64 (+.f64 #s(approx (sin (+ phi1 phi2)) (sin.f64 phi1)) (sin.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))))
	60.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (/.f64 (.f64 #s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (.f64 #s(literal 2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))))
	56.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	67.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	60.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
	60.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	46.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) phi1))))
	44.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
	45.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (+.f64 (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi2))))))
▶	43.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	67.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (fma.f64 (/.f64 lambda1 lambda2) lambda2 (neg.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	62.8%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	47.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))
	47.7%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
	37.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	19.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 (/.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 (-.f64 lambda1 lambda2) (*.f64 lambda2 lambda2)))))))
	37.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	45.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))
	47.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	28.7%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
▶	31.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))))
	30.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	40.2%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	37.8%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (/.f64 (.f64 (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda2 lambda1))))))
	46.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	77.5%	(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))
	59.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	48.2%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	89.5%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	38.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 (.f64 #s(literal 1/24 binary64) phi2) phi2 #s(literal -1/2 binary64))) (.f64 phi2 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
	38.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64))) (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	38.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	43.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	43.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) lambda1) lambda2)) (cos.f64 (-.f64 lambda2 (-.f64 lambda1 (+.f64 lambda1 lambda2))))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda1 lambda2)))))))
	38.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (-.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)))))))))
	35.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	35.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	18.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 (/.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 (-.f64 lambda1 lambda2) (.f64 lambda2 lambda2)))))))
	38.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	37.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))
	34.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
	39.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	38.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
	28.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))))
	27.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	43.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	16.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (.f64 (/.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 (-.f64 lambda1 lambda2) (.f64 lambda2 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	38.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	36.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	31.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	29.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	15.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* (sin (- lambda1 lambda2)) (+ (* 1/24 (* phi2 phi2)) -1/2)) (* phi2 phi2)) (sin (- lambda1 lambda2))) (.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))) (sin.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	34.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #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)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	39.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	36.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	38.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Compiler

Compiled 6 682 to 4 272 computations (36.1% saved)

simplify123.0ms (0.5%)

Memory

22.2MiB live, 115.7MiB allocated; 5ms 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 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))
cost-diff	0	#s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))))
cost-diff	0	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
cost-diff	0	(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64))
cost-diff	0	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
cost-diff	3	(cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))
cost-diff	3	(cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))
cost-diff	0	(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
cost-diff	0	(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))
cost-diff	0	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))))
cost-diff	2	(.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1)
cost-diff	0	(-.f64 lambda1 lambda2)
cost-diff	0	(sin.f64 (-.f64 lambda1 lambda2))
cost-diff	0	(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
cost-diff	0	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
cost-diff	0	(cos.f64 lambda2)
cost-diff	0	(*.f64 (cos.f64 lambda2) (sin.f64 lambda1))
cost-diff	0	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
cost-diff	3	(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)))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	97	891
0	152	879
1	291	879
2	694	835
3	2025	835
4	6863	831
0	8010	825

Stop Event

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

Calls

Call 1

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

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

localize1.1s (4.6%)

Memory

45.0MiB live, 1 044.1MiB allocated; 205ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.16523128132182532	(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
accuracy	0.19140625	(.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))
accuracy	0.2578125	(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
accuracy	15.855944605597578	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	15.855944605597578	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	29.64656724395272	#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
accuracy	56.58626184650882	(cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))
accuracy	57.02800568813268	(cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))
accuracy	15.855944605597578	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	16.105768795392095	(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
accuracy	29.64656724395272	#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
accuracy	32.567480390289575	#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))
accuracy	0.234375	(*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
accuracy	15.855944605597578	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	16.105768795392095	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	41.11121790046264	#s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
accuracy	0.1875	(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
accuracy	0.19624843175487938	(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)))
accuracy	0.203125	(.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)) (cos.f64 phi2))
accuracy	0.2578125	(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))

Samples

1.0s

256×

valid

Compiler

Compiled 762 to 76 computations (90% saved)

Precisions

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

ival-cos: 351.0ms (38% of total)

ival-sin: 244.0ms (26.4% of total)

adjust: 133.0ms (14.4% of total)

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

ival-atan2: 45.0ms (4.9% of total)

ival-add: 20.0ms (2.2% of total)

ival-sub: 18.0ms (1.9% of total)

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

ival-neg: 9.0ms (1% of total)

const: 7.0ms (0.8% of total)

ival-pi: 2.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)

series244.0ms (1%)

Memory

13.4MiB live, 202.7MiB allocated; 128ms collecting garbage

Counts

30 → 287

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable		Point	Expression
102.0ms	phi2	@	inf	((+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (* (+ (* -1/6 (* phi1 phi1)) 1) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (atan2 (/ (- (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2)))) 2) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (cos phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (* (sin lambda2) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (cos (- lambda1 lambda2)) (* (neg (sin phi1)) (cos (- lambda1 lambda2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- lambda1 lambda2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))))
41.0ms	phi1	@	inf	((+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (* (+ (* -1/6 (* phi1 phi1)) 1) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (atan2 (/ (- (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2)))) 2) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (cos phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (* (sin lambda2) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (cos (- lambda1 lambda2)) (* (neg (sin phi1)) (cos (- lambda1 lambda2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- lambda1 lambda2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))))
20.0ms	lambda2	@	-inf	((+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (* (+ (* -1/6 (* phi1 phi1)) 1) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (atan2 (/ (- (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2)))) 2) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (cos phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (* (sin lambda2) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (cos (- lambda1 lambda2)) (* (neg (sin phi1)) (cos (- lambda1 lambda2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- lambda1 lambda2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))))
15.0ms	lambda1	@	inf	((+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (* (+ (* -1/6 (* phi1 phi1)) 1) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (atan2 (/ (- (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2)))) 2) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (cos phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (* (sin lambda2) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (cos (- lambda1 lambda2)) (* (neg (sin phi1)) (cos (- lambda1 lambda2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- lambda1 lambda2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))))
10.0ms	lambda2	@	inf	((+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (* (+ (* -1/6 (* phi1 phi1)) 1) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (atan2 (/ (- (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2)))) 2) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (cos phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (* (sin lambda2) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (cos (- lambda1 lambda2)) (* (neg (sin phi1)) (cos (- lambda1 lambda2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- lambda1 lambda2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))))

simplify250.0ms (1%)

Memory

-20.7MiB live, 171.7MiB allocated; 44ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1435	11427
1	4659	11327
0	8750	10816

Stop Event

1×	iter limit
1×	node limit

Counts

287 → 287

Calls

Call 1

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

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

rewrite179.0ms (0.7%)

Memory

22.7MiB live, 159.6MiB allocated; 12ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	97	544
0	152	477
1	567	401
0	5381	401

Stop Event

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

Counts

30 → 520

Calls

Call 1

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

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

eval195.0ms (0.8%)

Memory: -10.3MiB live, 271.9MiB allocated; 39ms collecting garbage
Compiler: Compiled 62 449 to 4 587 computations (92.7% saved)

prune224.0ms (0.9%)

Memory

-8.2MiB live, 196.1MiB allocated; 41ms collecting garbage

Pruning

106 alts after pruning (106 fresh and 0 done)

	Pruned	Kept	Total
New	976	69	1 045
Fresh	38	37	75
Picked	5	0	5
Done	0	0	0
Total	1 019	106	1 125

Accuracy

99.9%

Counts

1 125 → 106

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.8%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
▶	99.8%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	99.7%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))) (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))))
	78.9%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	72.6%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	80.1%	(atan2.f64 (fma.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2) #s(approx ( (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	98.0%	(atan2.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	87.7%	(atan2.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	20.1%	(atan2.f64 (/.f64 (-.f64 (-.f64 (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (neg.f64 (sin.f64 phi2)) (/.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) #s(literal 2 binary64))) (/.f64 (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) #s(literal 2 binary64))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	21.3%	(atan2.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (neg.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	11.1%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
	11.6%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	11.3%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	14.0%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) #s(approx (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	20.6%	(atan2.f64 (/.f64 (-.f64 #s(approx (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) lambda1))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	92.4%	(atan2.f64 (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) #s(literal 3 binary64))) (cos.f64 phi2)) (fma.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)))) (pow.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	50.2%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	43.9%	(atan2.f64 (.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) #s(literal 2 binary64))) (sin.f64 (+.f64 lambda1 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	75.8%	(atan2.f64 (.f64 (/.f64 (.f64 (sin.f64 (+.f64 lambda2 lambda1)) (sin.f64 (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 lambda2 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	15.4%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))) (.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)) (pow.f64 lambda2 #s(literal 3 binary64)))) (.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	38.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	38.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	77.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))
	75.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))))
	77.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1)))))
	75.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))))))
	67.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	60.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
	60.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	46.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) phi1))))
	44.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
	24.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (PI.f64) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))))
	27.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (neg.f64 phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (neg.f64 phi1)))) #s(literal 2 binary64))))
	24.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (PI.f64) phi1))) (cos.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))))
	16.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))
	16.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))
	25.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))
	35.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))
	19.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))
	43.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) (neg.f64 (sin.f64 phi1))) (cos.f64 (+.f64 lambda1 lambda2)))))
	45.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (+.f64 (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi2))))))
	43.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	43.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) lambda1) lambda2)) (cos.f64 (-.f64 lambda2 (-.f64 lambda1 (+.f64 lambda1 lambda2))))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda1 lambda2)))))))
	35.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	35.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	18.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 (/.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 (-.f64 lambda1 lambda2) (.f64 lambda2 lambda2)))))))
	36.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))))
	39.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	34.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
	40.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	29.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) #s(approx (* (neg (sin phi1)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) (*.f64 phi1 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) phi1))))
	28.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) #s(approx (* (neg (sin phi1)) (cos (- lambda1 lambda2))) (*.f64 (neg.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	36.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.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 (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	37.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 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(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	37.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	67.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (fma.f64 (/.f64 lambda1 lambda2) lambda2 (neg.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	62.8%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	36.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	47.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))
	47.7%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
	37.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	37.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	45.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))
▶	47.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	28.7%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
	22.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))) phi1))))
	31.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2))) phi1))))
	30.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	40.2%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	31.0%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (+ (* -1/6 (* phi1 phi1)) 1) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (.f64 (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))
	29.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	20.2%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.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)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))))
	19.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))))
	22.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))))
	46.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	29.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	77.5%	(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))
	36.5%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	59.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	48.4%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2)) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	79.6%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	73.7%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (*.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2)))) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))))
	89.4%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (*.f64 (sin.f64 phi2) (cos.f64 phi1)))))
	73.3%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
	99.7%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
	99.8%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	67.9%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	68.1%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	78.9%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	66.5%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
▶	77.9%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	72.6%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
	56.8%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	78.6%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	43.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	38.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (-.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)))))))))
	35.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	39.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	38.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
▶	43.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	39.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	16.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (.f64 (/.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 (-.f64 lambda1 lambda2) (.f64 lambda2 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	38.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	31.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	52.8%	(atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (fma.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	46.3%	(atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))

Compiler

Compiled 10 732 to 6 828 computations (36.4% saved)

simplify156.0ms (0.6%)

Memory

19.1MiB live, 109.1MiB allocated; 6ms 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 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))
cost-diff	0	#s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))))
cost-diff	0	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
cost-diff	0	#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
cost-diff	0	(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
cost-diff	0	(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))
cost-diff	0	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
cost-diff	0	(-.f64 lambda1 lambda2)
cost-diff	0	(sin.f64 (-.f64 lambda1 lambda2))
cost-diff	0	#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
cost-diff	0	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
cost-diff	0	(-.f64 lambda1 lambda2)
cost-diff	0	(sin.f64 (-.f64 lambda1 lambda2))
cost-diff	0	#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
cost-diff	0	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
cost-diff	0	(cos.f64 phi2)
cost-diff	0	(*.f64 (cos.f64 phi2) (cos.f64 lambda2))
cost-diff	0	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
cost-diff	3	(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)))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	85	726
0	128	712
1	256	712
2	577	692
3	1597	692
4	4628	692
0	8038	690

Stop Event

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

Calls

Call 1

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

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

localize811.0ms (3.3%)

Memory

2.1MiB live, 609.7MiB allocated; 70ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.16523128132182532	(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
accuracy	0.19140625	(.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))
accuracy	0.2578125	(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
accuracy	28.427246777507023	#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
accuracy	0.2578125	(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
accuracy	16.105768795392095	(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
accuracy	28.427246777507023	#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
accuracy	29.64656724395272	#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
accuracy	15.855944605597578	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	16.105768795392095	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	32.86096012895852	#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
accuracy	33.01575853274862	#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
accuracy	15.855944605597578	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	16.105768795392095	(sin.f64 (-.f64 lambda1 lambda2))
accuracy	33.01575853274862	#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
accuracy	41.11121790046264	#s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
accuracy	0.1875	(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
accuracy	0.203125	(.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (cos.f64 phi2))
accuracy	0.20556739149119868	(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)))
accuracy	0.2578125	(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))

Samples

692.0ms	240×	1	valid
35.0ms	16×	0	valid

Compiler

Compiled 608 to 64 computations (89.5% saved)

Precisions

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

ival-sin: 285.0ms (42.5% of total)

ival-cos: 193.0ms (28.8% of total)

adjust: 70.0ms (10.4% of total)

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

ival-atan2: 20.0ms (3% of total)

ival-add: 15.0ms (2.2% of total)

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

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

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

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

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

exact: 0.0ms (0% of total)

series83.0ms (0.3%)

Memory

-14.1MiB live, 78.3MiB allocated; 6ms collecting garbage

Counts

25 → 208

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable		Point	Expression
9.0ms	lambda1	@	-inf	((+ (* (* (cos phi2) (cos lambda2)) (sin lambda1)) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2))) (atan2 (+ (* (* (cos phi2) (cos lambda2)) (sin lambda1)) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (* (cos phi2) (cos lambda2)) (cos phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2)) (* (sin lambda2) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))))
6.0ms	phi2	@	-inf	((+ (* (* (cos phi2) (cos lambda2)) (sin lambda1)) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2))) (atan2 (+ (* (* (cos phi2) (cos lambda2)) (sin lambda1)) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (* (cos phi2) (cos lambda2)) (cos phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2)) (* (sin lambda2) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))))
6.0ms	phi2	@	inf	((+ (* (* (cos phi2) (cos lambda2)) (sin lambda1)) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2))) (atan2 (+ (* (* (cos phi2) (cos lambda2)) (sin lambda1)) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (* (cos phi2) (cos lambda2)) (cos phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2)) (* (sin lambda2) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))))
6.0ms	lambda2	@	inf	((+ (* (* (cos phi2) (cos lambda2)) (sin lambda1)) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2))) (atan2 (+ (* (* (cos phi2) (cos lambda2)) (sin lambda1)) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (* (cos phi2) (cos lambda2)) (cos phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2)) (* (sin lambda2) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))))
6.0ms	lambda1	@	inf	((+ (* (* (cos phi2) (cos lambda2)) (sin lambda1)) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2))) (atan2 (+ (* (* (cos phi2) (cos lambda2)) (sin lambda1)) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (* (cos phi2) (cos lambda2)) (cos phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (sin lambda2) (neg (cos lambda1))) (cos phi2)) (* (sin lambda2) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))))

simplify210.0ms (0.9%)

Memory

22.6MiB live, 159.0MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	973	7888
1	3173	7478
0	8288	7222

Stop Event

1×	iter limit
1×	node limit

Counts

208 → 208

Calls

Call 1

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

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

rewrite210.0ms (0.9%)

Memory

9.6MiB live, 154.8MiB allocated; 14ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	85	459
0	128	421
1	468	352
2	4223	352
0	8091	352

Stop Event

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

Counts

25 → 325

Calls

Call 1

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

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

eval124.0ms (0.5%)

Memory: 10.3MiB live, 146.0MiB allocated; 15ms collecting garbage
Compiler: Compiled 39 510 to 2 847 computations (92.8% saved)

prune242.0ms (1%)

Memory

5.8MiB live, 299.2MiB allocated; 35ms collecting garbage

Pruning

120 alts after pruning (117 fresh and 3 done)

	Pruned	Kept	Total
New	665	44	709
Fresh	28	73	101
Picked	2	3	5
Done	0	0	0
Total	695	120	815

Accuracy

99.9%

Counts

815 → 120

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.8%	(atan2.f64 (fma.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)) (sin.f64 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
✓	99.8%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	78.9%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
	99.7%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1)))) (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) (sin.f64 lambda1))))))
	72.6%	(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	80.1%	(atan2.f64 (fma.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2) #s(approx ( (* (neg (cos lambda1)) (sin lambda2)) (cos phi2)) (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	98.0%	(atan2.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	87.7%	(atan2.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	20.1%	(atan2.f64 (/.f64 (-.f64 (-.f64 (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (neg.f64 (sin.f64 phi2)) (/.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) #s(literal 2 binary64))) (/.f64 (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) #s(literal 2 binary64))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	21.3%	(atan2.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (neg.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	11.1%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
	11.3%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	14.0%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) #s(approx (cos (+ (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda1) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	20.6%	(atan2.f64 (/.f64 (-.f64 #s(approx (cos (- (+ (/ (PI) 2) phi2) (- lambda1 lambda2))) (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) lambda1))) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	92.4%	(atan2.f64 (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) #s(literal 3 binary64))) (cos.f64 phi2)) (fma.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)))) (pow.f64 (.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1))) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	75.8%	(atan2.f64 (.f64 (/.f64 (.f64 (sin.f64 (+.f64 lambda2 lambda1)) (sin.f64 (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 lambda2 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	15.4%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))) (.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)) (pow.f64 lambda2 #s(literal 3 binary64)))) (.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	38.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	38.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	77.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))
	77.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1)))))
	67.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	60.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
	46.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) phi1))))
	44.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
	24.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (PI.f64) phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))))
	27.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (neg.f64 phi1))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (neg.f64 phi1)))) #s(literal 2 binary64))))
	16.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))
	16.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))
	25.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))
	35.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))
	19.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))
	43.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) lambda1) lambda2)) (cos.f64 (-.f64 lambda2 (-.f64 lambda1 (+.f64 lambda1 lambda2))))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda1 lambda2)))))))
	35.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	35.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	18.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 (/.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 (-.f64 lambda1 lambda2) (.f64 lambda2 lambda2)))))))
	39.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	34.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
	40.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	29.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) #s(approx (* (neg (sin phi1)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) (*.f64 phi1 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2)))) phi1))))
	28.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) #s(approx (* (neg (sin phi1)) (cos (- lambda1 lambda2))) (*.f64 (neg.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	36.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.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 (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	37.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 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(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	37.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	67.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (fma.f64 (/.f64 lambda1 lambda2) lambda2 (neg.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	62.8%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	47.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))
	47.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	45.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))))
	45.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (cos.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))))))
	39.7%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	47.7%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
	37.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	45.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))
✓	47.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	26.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.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 (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	28.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #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 (- lambda1 lambda2)) (cos.f64 lambda2)))))
	28.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	40.0%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	31.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (cos.f64 phi2))) phi1))))
	30.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	40.2%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	29.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	30.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
	31.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	20.2%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.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)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))))
	19.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))))
	46.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	77.5%	(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))
	59.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	44.7%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2)) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	79.6%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	89.4%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (*.f64 (sin.f64 phi2) (cos.f64 phi1)))))
	69.9%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (/.f64 (.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))) #s(literal 2 binary64))))
	69.4%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	68.8%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	99.7%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
	99.8%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	67.9%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	68.1%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	78.9%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	66.5%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
✓	77.9%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	72.6%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
	68.7%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	56.8%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	78.6%	(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	44.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	39.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)) #s(literal 2 binary64))) (sin.f64 (+.f64 lambda1 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	36.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	43.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	38.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (-.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)))))))))
	39.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	35.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 phi1)))))
	35.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 phi1)))))
	36.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) (sin.f64 phi1)))))
	39.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) (sin.f64 phi1)))))
	37.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (fma.f64 (-.f64 (cos.f64 phi1) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64))) phi2 (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))
	27.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (+.f64 (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi2))))))
	39.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	39.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (/.f64 (+.f64 (cos.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) lambda1) lambda2)) (cos.f64 (-.f64 lambda2 (-.f64 lambda1 (+.f64 lambda1 lambda2))))) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 lambda1 lambda2)))))))
	31.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	31.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	35.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
	30.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
	34.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
	36.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
	16.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (.f64 (/.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 (-.f64 lambda1 lambda2) (.f64 lambda2 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	38.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	32.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)))) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	31.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	31.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	28.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	29.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	27.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	31.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #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 (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	36.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	33.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	52.8%	(atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (fma.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
	46.3%	(atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))

Compiler

Compiled 16 702 to 4 904 computations (70.6% saved)

regimes434.0ms (1.8%)

Memory

30.3MiB live, 606.3MiB allocated; 118ms collecting garbage

Counts

219 → 1

Calls

Call 1

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

Outputs

(atan2.f64 (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))) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))

Calls

6 calls:

82.0ms	phi2
76.0ms	(-.f64 lambda1 lambda2)
73.0ms	lambda2
71.0ms	phi1
61.0ms	lambda1

Results

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

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes462.0ms (1.9%)

Memory

-34.4MiB live, 508.2MiB allocated; 235ms collecting garbage

Counts

202 → 1

Calls

Call 1

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

Outputs

(atan2.f64 (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))) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))

Calls

6 calls:

139.0ms	phi1
95.0ms	(-.f64 lambda1 lambda2)
58.0ms	phi2
56.0ms	lambda1
52.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Results

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

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes388.0ms (1.6%)

Memory

1.8MiB live, 514.1MiB allocated; 95ms collecting garbage

Counts

200 → 1

Calls

Call 1

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

Outputs

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

Calls

6 calls:

73.0ms	phi2
71.0ms	lambda2
67.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
57.0ms	phi1
55.0ms	lambda1

Results

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

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes342.0ms (1.4%)

Memory

32.7MiB live, 460.1MiB allocated; 95ms collecting garbage

Counts

198 → 3

Calls

Call 1

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

Outputs

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

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

(atan2.f64 (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))) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

6 calls:

64.0ms	phi2
57.0ms	(-.f64 lambda1 lambda2)
57.0ms	lambda1
56.0ms	phi1
50.0ms	lambda2

Results

Accuracy	Segments	Branch
89.5%	1	`(-.f64 lambda1 lambda2)`
89.5%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
89.5%	1	`lambda1`
89.5%	1	`lambda2`
89.5%	1	`phi1`
94.0%	3	`phi2`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes135.0ms (0.6%)

Memory

-15.2MiB live, 174.5MiB allocated; 60ms collecting garbage

Counts

195 → 1

Calls

Call 1

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

Outputs

(atan2.f64 (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))) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

2 calls:

55.0ms	phi2
50.0ms	lambda2

Results

Accuracy	Segments	Branch
89.5%	1	`lambda2`
89.5%	1	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes293.0ms (1.2%)

Memory

48.9MiB live, 464.5MiB allocated; 33ms collecting garbage

Counts

190 → 1

Calls

Call 1

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

Outputs

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

Calls

6 calls:

52.0ms	lambda1
48.0ms	(-.f64 lambda1 lambda2)
48.0ms	phi2
46.0ms	phi1
46.0ms	lambda2

Results

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

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes306.0ms (1.2%)

Memory

-34.2MiB live, 349.2MiB allocated; 80ms collecting garbage

Counts

166 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

6 calls:

61.0ms	phi1
47.0ms	phi2
47.0ms	lambda1
46.0ms	lambda2
43.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
88.1%	3	`phi1`
82.7%	2	`(-.f64 lambda1 lambda2)`
82.3%	3	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
84.2%	3	`phi2`
89.4%	3	`lambda1`
89.5%	3	`lambda2`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes55.0ms (0.2%)

Memory

-0.1MiB live, 89.2MiB allocated; 12ms collecting garbage

Counts

163 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

42.0ms

lambda2

Results

Accuracy	Segments	Branch
89.5%	3	`lambda2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes138.0ms (0.6%)

Memory

22.8MiB live, 212.9MiB allocated; 23ms collecting garbage

Counts

162 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

3 calls:

43.0ms	phi1
43.0ms	lambda2
42.0ms	lambda1

Results

Accuracy	Segments	Branch
88.0%	3	`phi1`
82.1%	2	`lambda1`
85.4%	3	`lambda2`

Compiler

Compiled 3 to 12 computations (-300% saved)

regimes47.0ms (0.2%)

Memory

19.5MiB live, 73.8MiB allocated; 8ms collecting garbage

Counts

148 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

39.0ms

phi1

Results

Accuracy	Segments	Branch
87.5%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes47.0ms (0.2%)

Memory

-9.0MiB live, 81.7MiB allocated; 5ms collecting garbage

Counts

147 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

36.0ms

phi1

Results

Accuracy	Segments	Branch
86.8%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes44.0ms (0.2%)

Memory

-31.3MiB live, 64.5MiB allocated; 14ms collecting garbage

Counts

114 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

30.0ms

phi1

Results

Accuracy	Segments	Branch
86.8%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes36.0ms (0.1%)

Memory

19.7MiB live, 64.1MiB allocated; 4ms collecting garbage

Counts

113 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

30.0ms

phi1

Results

Accuracy	Segments	Branch
86.8%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes261.0ms (1.1%)

Memory

-47.6MiB live, 229.1MiB allocated; 70ms collecting garbage

Counts

112 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

6 calls:

52.0ms	phi2
48.0ms	lambda1
29.0ms	phi1
28.0ms	(-.f64 lambda1 lambda2)
26.0ms	lambda2

Results

Accuracy	Segments	Branch
70.7%	3	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
79.7%	3	`lambda1`
76.0%	3	`phi2`
70.8%	2	`(-.f64 lambda1 lambda2)`
80.8%	3	`lambda2`
77.2%	3	`phi1`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes49.0ms (0.2%)

Memory

5.6MiB live, 48.8MiB allocated; 6ms collecting garbage

Counts

106 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

25.0ms

lambda2

Results

Accuracy	Segments	Branch
80.8%	3	`lambda2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes89.0ms (0.4%)

Memory

7.2MiB live, 100.5MiB allocated; 17ms collecting garbage

Counts

103 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

2 calls:

49.0ms	lambda1
34.0ms	lambda2

Results

Accuracy	Segments	Branch
79.2%	3	`lambda1`
73.7%	3	`lambda2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes138.0ms (0.6%)

Memory

31.9MiB live, 179.2MiB allocated; 16ms collecting garbage

Counts

102 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

4 calls:

50.0ms	lambda1
31.0ms	phi2
28.0ms	lambda2
24.0ms	phi1

Results

Accuracy	Segments	Branch
73.7%	3	`lambda2`
70.6%	3	`phi2`
72.3%	3	`phi1`
72.3%	4	`lambda1`

Compiler

Compiled 4 to 16 computations (-300% saved)

regimes194.0ms (0.8%)

Memory

8.8MiB live, 240.3MiB allocated; 23ms collecting garbage

Counts

100 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

6 calls:

57.0ms	(-.f64 lambda1 lambda2)
28.0ms	phi1
28.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
27.0ms	lambda1
24.0ms	lambda2

Results

Accuracy	Segments	Branch
70.6%	3	`phi2`
60.8%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
70.1%	4	`lambda1`
70.2%	3	`phi1`
64.9%	2	`(-.f64 lambda1 lambda2)`
70.1%	3	`lambda2`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes126.0ms (0.5%)

Memory

-46.8MiB live, 100.7MiB allocated; 39ms collecting garbage

Counts

69 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

4 calls:

43.0ms	phi1
17.0ms	lambda2
17.0ms	lambda1
17.0ms	phi2

Results

Accuracy	Segments	Branch
56.8%	1	`lambda1`
63.0%	3	`lambda2`
68.5%	3	`phi1`
66.9%	3	`phi2`

Compiler

Compiled 4 to 16 computations (-300% saved)

regimes119.0ms (0.5%)

Memory

44.2MiB live, 177.6MiB allocated; 27ms collecting garbage

Counts

62 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

6 calls:

28.0ms	(-.f64 lambda1 lambda2)
23.0ms	lambda1
18.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
15.0ms	phi1
15.0ms	phi2

Results

Accuracy	Segments	Branch
48.1%	3	`lambda1`
47.2%	3	`lambda2`
43.6%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
43.6%	1	`(-.f64 lambda1 lambda2)`
51.0%	3	`phi2`
48.6%	3	`phi1`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes20.0ms (0.1%)

Memory

-12.0MiB live, 44.7MiB allocated; 8ms collecting garbage

Counts

51 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

17.0ms

phi2

Results

Accuracy	Segments	Branch
51.0%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes15.0ms (0.1%)

Memory

-16.9MiB live, 29.8MiB allocated; 3ms collecting garbage

Counts

44 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

12.0ms

phi2

Results

Accuracy	Segments	Branch
50.7%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes13.0ms (0.1%)

Memory

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

Counts

41 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

10.0ms

phi2

Results

Accuracy	Segments	Branch
49.9%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes33.0ms (0.1%)

Memory

-39.7MiB live, 7.0MiB allocated; 2ms collecting garbage

Counts

10 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

32.0ms

phi2

Results

Accuracy	Segments	Branch
49.9%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes13.0ms (0.1%)

Memory

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

Counts

5 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

6 calls:

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

Results

Accuracy	Segments	Branch
36.1%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
38.4%	2	`(-.f64 lambda1 lambda2)`
43.7%	3	`lambda2`
43.0%	4	`lambda1`
42.8%	3	`phi1`
46.4%	3	`phi2`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes6.0ms (0%)

Memory

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

Counts

2 → 3

Calls

Call 1

Inputs

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

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

Outputs

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

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

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

Calls

4 calls:

1.0ms	phi1
1.0ms	phi2
1.0ms	lambda2
1.0ms	lambda1

Results

Accuracy	Segments	Branch
39.2%	3	`lambda1`
37.8%	3	`phi1`
40.0%	3	`lambda2`
39.1%	3	`phi2`

Compiler

Compiled 4 to 16 computations (-300% saved)

regimes10.0ms (0%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Outputs

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

Calls

6 calls:

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

Results

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

Compiler

Compiled 31 to 38 computations (-22.6% saved)

bsearch233.0ms (1%)

Memory

26.1MiB live, 358.1MiB allocated; 28ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
135.0ms	7.454187000480213e-18	1541333.3943382746
88.0ms	-0.37281236533465617	-1.3304351321176976e-8

Samples

196.0ms	246×	1	valid
12.0ms	74×	0	valid

Compiler

Compiled 1 851 to 1 303 computations (29.6% saved)

Precisions

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

ival-sin: 77.0ms (39.9% of total)

ival-cos: 64.0ms (33.2% of total)

adjust: 21.0ms (10.9% of total)

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

ival-sub: 6.0ms (3.1% of total)

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

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

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

bsearch343.0ms (1.4%)

Memory

-34.0MiB live, 157.2MiB allocated; 40ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
65.0ms	3.2384396576486393e-13	1.5665470554753548e-8
240.0ms	-6.9206140848388075e+22	-8.73312572881572e+19

Samples

275.0ms	177×	1	valid
18.0ms	79×	0	valid

Compiler

Compiled 1 707 to 1 208 computations (29.2% saved)

Precisions

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

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

ival-sin: 79.0ms (28.5% of total)

adjust: 12.0ms (4.3% of total)

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

ival-atan2: 5.0ms (1.8% of total)

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

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

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

bsearch145.0ms (0.6%)

Memory

-3.8MiB live, 93.4MiB allocated; 18ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	3.2384396576486393e-13	1.5665470554753548e-8
90.0ms	-6.324005256596308e+48	-1.7056151806260828e+47

Samples

84.0ms	109×	1	valid
1.0ms	3×	0	valid

Compiler

Compiled 1 602 to 1 134 computations (29.2% saved)

Precisions

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

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

ival-cos: 28.0ms (35.5% of total)

adjust: 7.0ms (8.9% of total)

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

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

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

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

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

bsearch161.0ms (0.7%)

Memory

56.0MiB live, 184.7MiB allocated; 18ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
71.0ms	4.956892662854578e-13	1.9148597892280603e-11
82.0ms	-6.359785936022414e-10	-1.8241698939525357e-11

Samples

135.0ms	177×	1	valid
7.0ms	47×	0	valid

Compiler

Compiled 1 525 to 1 088 computations (28.7% saved)

Precisions

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

ival-sin: 47.0ms (37.2% of total)

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

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

adjust: 12.0ms (9.5% of total)

ival-atan2: 5.0ms (4% of total)

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

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

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

bsearch190.0ms (0.8%)

Memory

-17.8MiB live, 229.4MiB allocated; 32ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
79.0ms	4.956892662854578e-13	1.9148597892280603e-11
104.0ms	-0.0007843402809175627	-1.2321895841159368e-8

Samples

134.0ms	152×	1	valid
14.0ms	72×	0	valid

Compiler

Compiled 1 212 to 886 computations (26.9% saved)

Precisions

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

ival-sin: 71.0ms (51.4% of total)

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

adjust: 10.0ms (7.2% of total)

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

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

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

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

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

bsearch176.0ms (0.7%)

Memory

-17.2MiB live, 221.4MiB allocated; 37ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
90.0ms	3.026992744768343e-18	9.595086414329526e-17
79.0ms	-1.8241698939525357e-11	-1.1979137132351627e-13

Samples

125.0ms	170×	1	valid
12.0ms	54×	0	valid

Compiler

Compiled 1 105 to 815 computations (26.2% saved)

Precisions

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

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

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

adjust: 11.0ms (8.6% of total)

ival-mult: 10.0ms (7.8% of total)

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

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

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.026992744768343e-18	9.595086414329526e-17
1.0ms	-1.8241698939525357e-11	-1.1979137132351627e-13

Compiler

Compiled 1 105 to 815 computations (26.2% saved)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.026992744768343e-18	9.595086414329526e-17
1.0ms	-1.8241698939525357e-11	-1.1979137132351627e-13

Compiler

Compiled 1 105 to 822 computations (25.6% saved)

bsearch112.0ms (0.5%)

Memory

-19.4MiB live, 122.1MiB allocated; 11ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.2384396576486393e-13	1.5665470554753548e-8
103.0ms	-8.73312572881572e+19	-262182785.4137803

Samples

92.0ms	141×	1	valid
3.0ms	19×	0	valid

Compiler

Compiled 1 241 to 932 computations (24.9% saved)

Precisions

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

ival-cos: 33.0ms (37.3% of total)

ival-sin: 32.0ms (36.1% of total)

adjust: 10.0ms (11.3% of total)

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

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

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

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

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

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.2384396576486393e-13	1.5665470554753548e-8
2.0ms	-8.73312572881572e+19	-262182785.4137803

Compiler

Compiled 1 265 to 940 computations (25.7% saved)

bsearch234.0ms (1%)

Memory

32.7MiB live, 260.5MiB allocated; 34ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
132.0ms	5.993141420454842e-22	9.941213435124411e-5
93.0ms	-46.25532420936136	-3.255585157022353e-15

Samples

182.0ms	187×	1	valid
29.0ms	133×	0	valid

Compiler

Compiled 1 357 to 1 024 computations (24.5% saved)

Precisions

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

ival-sin: 68.0ms (34.8% of total)

ival-cos: 60.0ms (30.7% of total)

adjust: 43.0ms (22% of total)

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

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

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

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

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

bsearch1.2s (5.1%)

Memory

-325.8MiB live, 306.9MiB allocated; 1.6s collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
99.0ms	2.5188024907647827e-30	4.1442441335075443e-17
1.1s	-5.195246432234104e-41	-2.5754035305952826e-62

Samples

1.2s	167×	1	valid
29.0ms	169×	0	valid

Compiler

Compiled 1 456 to 1 082 computations (25.7% saved)

Precisions

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

ival-cos: 1.1s (91.7% of total)

ival-sin: 63.0ms (5.3% of total)

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

adjust: 12.0ms (1% of total)

ival-sub: 5.0ms (0.4% of total)

ival-atan2: 5.0ms (0.4% of total)

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

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

bsearch247.0ms (1%)

Memory

-39.0MiB live, 201.7MiB allocated; 35ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
118.0ms	1.4019086380832741e-27	7.454187000480213e-18
93.0ms	-1.3304351321176976e-8	-1.3211039771323099e-11

Samples

185.0ms	208×	1	valid
12.0ms	80×	0	valid

Compiler

Compiled 2 079 to 1 464 computations (29.6% saved)

Precisions

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

ival-sin: 71.0ms (45.2% of total)

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

ival-mult: 16.0ms (10.2% of total)

adjust: 14.0ms (8.9% of total)

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

ival-atan2: 5.0ms (3.2% of total)

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

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

bsearch227.0ms (0.9%)

Memory

52.0MiB live, 282.0MiB allocated; 21ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
98.0ms	7.104912650392134e-5	0.0009123311313167952
121.0ms	-5.893498747329833e+31	-212952138577737.9

Samples

196.0ms	192×	1	valid
11.0ms	64×	0	valid

Compiler

Compiled 1 539 to 1 080 computations (29.8% saved)

Precisions

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

ival-sin: 90.0ms (45.9% of total)

ival-cos: 62.0ms (31.6% of total)

ival-mult: 20.0ms (10.2% of total)

adjust: 13.0ms (6.6% of total)

ival-sub: 5.0ms (2.5% of total)

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

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

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

bsearch137.0ms (0.6%)

Memory

-40.8MiB live, 149.6MiB allocated; 24ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	1.4019086380832741e-27	7.454187000480213e-18
125.0ms	-1548.2116755291886	-0.37281236533465617

Samples

112.0ms	96×	1	valid
6.0ms	32×	0	valid

Compiler

Compiled 1 853 to 1 252 computations (32.4% saved)

Precisions

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

ival-sin: 50.0ms (44.4% of total)

ival-cos: 45.0ms (40% of total)

adjust: 6.0ms (5.3% of total)

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

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

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

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.4019086380832741e-27	7.454187000480213e-18
1.0ms	-1548.2116755291886	-0.37281236533465617

Compiler

Compiled 1 313 to 928 computations (29.3% saved)

bsearch38.0ms (0.2%)

Memory

16.3MiB live, 60.5MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.4019086380832741e-27	7.454187000480213e-18
35.0ms	-1548.2116755291886	-0.37281236533465617

Samples

31.0ms	44×	1	valid
1.0ms	4×	0	valid

Compiler

Compiled 1 233 to 888 computations (28% saved)

Precisions

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

ival-cos: 12.0ms (40.7% of total)

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

adjust: 3.0ms (10.2% of total)

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

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

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

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

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

bsearch53.0ms (0.2%)

Memory

-12.1MiB live, 34.1MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	1.4019086380832741e-27	7.454187000480213e-18
49.0ms	-1548.2116755291886	-0.37281236533465617

Samples

41.0ms	57×	1	valid
4.0ms	23×	0	valid

Compiler

Compiled 1 575 to 1 122 computations (28.8% saved)

Precisions

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

ival-cos: 19.0ms (46.1% of total)

ival-sin: 12.0ms (29.1% of total)

adjust: 4.0ms (9.7% of total)

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

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

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

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.4019086380832741e-27	7.454187000480213e-18
1.0ms	-1548.2116755291886	-0.37281236533465617

Compiler

Compiled 1 539 to 1 086 computations (29.4% saved)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.4019086380832741e-27	7.454187000480213e-18
1.0ms	-1548.2116755291886	-0.37281236533465617

Compiler

Compiled 1 593 to 1 122 computations (29.6% saved)

bsearch182.0ms (0.7%)

Memory

16.4MiB live, 162.6MiB allocated; 23ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
54.0ms	3.2384396576486393e-13	1.5665470554753548e-8
121.0ms	-9.180790597466347e-102	-2.6776349293482143e-104

Samples

141.0ms	111×	1	valid
24.0ms	129×	0	valid

Compiler

Compiled 1 403 to 984 computations (29.9% saved)

Precisions

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

ival-mult: 53.0ms (34.2% of total)

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

ival-cos: 37.0ms (23.8% of total)

adjust: 8.0ms (5.2% of total)

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

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

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

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

simplify74.0ms (0.3%)

Memory

-27.2MiB live, 72.5MiB allocated; 10ms collecting garbage

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	261	2541
1	427	2521
2	727	2465
3	1477	2451
4	4440	2451

Stop Event

1×	node limit

Calls

Call 1

Inputs
(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(if (<=.f64 phi2 #s(literal -1770887431076117/2361183241434822606848 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi2 #s(literal 2408406906263519/4722366482869645213696 binary64)) (atan2.f64 #s(approx ( (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (fma.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) (atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(if (<=.f64 lambda2 #s(literal -90000000000000000000 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (if (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))))
(if (<=.f64 lambda2 #s(literal -219999999999999993420157786995427078861689454592 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (if (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))))
(if (<=.f64 phi1 #s(literal -5415987671873539/38685626227668133590597632 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi1 #s(literal 8715097876569077/9903520314283042199192993792 binary64)) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi1 #s(literal -4533471823554859/75557863725914323419136 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi1 #s(literal 5942112188569825/1237940039285380274899124224 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(if (<=.f64 phi1 #s(literal -8318957063997755/19807040628566084398385987584 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi1 #s(literal 6328111796339321/81129638414606681695789005144064 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(if (<=.f64 phi1 #s(literal -8318957063997755/19807040628566084398385987584 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi1 #s(literal 6328111796339321/81129638414606681695789005144064 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))))
(if (<=.f64 phi1 #s(literal -8318957063997755/19807040628566084398385987584 binary64)) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (.f64 (sin.f64 phi2) (cos.f64 phi1)))) (if (<=.f64 phi1 #s(literal 6328111796339321/81129638414606681695789005144064 binary64)) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))))
(if (<=.f64 lambda2 #s(literal -265000000 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 lambda2 #s(literal -265000000 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))))
(if (<=.f64 lambda1 #s(literal -5188146770730811/288230376151711744 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 lambda1 #s(literal 4722366482869645/590295810358705651712 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 lambda2 #s(literal -1034466365991725/200867255532373784442745261542645325315275374222849104412672 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 lambda2 #s(literal 8983454486712775/1361129467683753853853498429727072845824 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))))
(if (<=.f64 phi2 #s(literal -4593918114535591/2417851639229258349412352 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 phi1 #s(literal -220000000000000 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (if (<=.f64 phi1 #s(literal 5534023222112865/18446744073709551616 binary64)) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi2 #s(literal -3/2 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (neg.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx ( (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (fma.f64 (-.f64 (cos.f64 phi1) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64))) phi2 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 phi2 #s(literal -3/2 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (neg.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx ( (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 phi2 #s(literal -1 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 phi2 #s(literal -5764607523034235/9007199254740992 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 phi2 #s(literal -5764607523034235/9007199254740992 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 phi2 #s(literal -5764607523034235/9007199254740992 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 lambda2 #s(literal -7060839510393891/2521728396569246669585858566409191283525103313309788586748690777871726193375821479130513040312634601011624191379636224 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 lambda2 #s(literal 817040425928351/2475880078570760549798248448 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Outputs
(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(if (<=.f64 phi2 #s(literal -1770887431076117/2361183241434822606848 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi2 #s(literal 2408406906263519/4722366482869645213696 binary64)) (atan2.f64 #s(approx ( (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (fma.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) (atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi2 #s(literal -1770887431076117/2361183241434822606848 binary64)) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi2 #s(literal 2408406906263519/4722366482869645213696 binary64)) (atan2.f64 #s(approx ( (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (fma.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) (atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (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))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(if (<=.f64 lambda2 #s(literal -90000000000000000000 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (if (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))))
(if (or (<=.f64 lambda2 #s(literal -90000000000000000000 binary64)) (not (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)))) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 #s(approx ( (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
(if (<=.f64 lambda2 #s(literal -219999999999999993420157786995427078861689454592 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (if (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))))
(if (or (<=.f64 lambda2 #s(literal -219999999999999993420157786995427078861689454592 binary64)) (not (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)))) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 #s(approx ( (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal -5415987671873539/38685626227668133590597632 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi1 #s(literal 8715097876569077/9903520314283042199192993792 binary64)) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (or (<=.f64 phi1 #s(literal -5415987671873539/38685626227668133590597632 binary64)) (not (<=.f64 phi1 #s(literal 8715097876569077/9903520314283042199192993792 binary64)))) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 #s(approx ( (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
(if (<=.f64 phi1 #s(literal -4533471823554859/75557863725914323419136 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi1 #s(literal 5942112188569825/1237940039285380274899124224 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(if (<=.f64 phi1 #s(literal -4533471823554859/75557863725914323419136 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi1 #s(literal 5942112188569825/1237940039285380274899124224 binary64)) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(if (<=.f64 phi1 #s(literal -8318957063997755/19807040628566084398385987584 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi1 #s(literal 6328111796339321/81129638414606681695789005144064 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(if (<=.f64 phi1 #s(literal -8318957063997755/19807040628566084398385987584 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi1 #s(literal 6328111796339321/81129638414606681695789005144064 binary64)) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(if (<=.f64 phi1 #s(literal -8318957063997755/19807040628566084398385987584 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi1 #s(literal 6328111796339321/81129638414606681695789005144064 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))))
(if (<=.f64 phi1 #s(literal -8318957063997755/19807040628566084398385987584 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 phi1 #s(literal 6328111796339321/81129638414606681695789005144064 binary64)) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))))
(if (<=.f64 phi1 #s(literal -8318957063997755/19807040628566084398385987584 binary64)) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (.f64 (sin.f64 phi2) (cos.f64 phi1)))) (if (<=.f64 phi1 #s(literal 6328111796339321/81129638414606681695789005144064 binary64)) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (cos.f64 phi1))))))
(if (or (<=.f64 phi1 #s(literal -8318957063997755/19807040628566084398385987584 binary64)) (not (<=.f64 phi1 #s(literal 6328111796339321/81129638414606681695789005144064 binary64)))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)) (neg.f64 (cos.f64 phi2)) (.f64 (sin.f64 phi2) (cos.f64 phi1)))) (atan2.f64 #s(approx ( (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))))
(if (<=.f64 lambda2 #s(literal -265000000 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 lambda2 #s(literal -265000000 binary64)) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 lambda2 #s(literal -265000000 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))))
(if (<=.f64 lambda2 #s(literal -265000000 binary64)) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 lambda2 #s(literal 4533471823554859/302231454903657293676544 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))))
(if (<=.f64 lambda1 #s(literal -5188146770730811/288230376151711744 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 lambda1 #s(literal 4722366482869645/590295810358705651712 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 lambda1 #s(literal -5188146770730811/288230376151711744 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (if (<=.f64 lambda1 #s(literal 4722366482869645/590295810358705651712 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 lambda2 #s(literal -1034466365991725/200867255532373784442745261542645325315275374222849104412672 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 lambda2 #s(literal 8983454486712775/1361129467683753853853498429727072845824 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))))
(if (<=.f64 lambda2 #s(literal -1034466365991725/200867255532373784442745261542645325315275374222849104412672 binary64)) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 lambda2 #s(literal 8983454486712775/1361129467683753853853498429727072845824 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))))
(if (<=.f64 phi2 #s(literal -4593918114535591/2417851639229258349412352 binary64)) (atan2.f64 #s(approx (+ (* (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (or (<=.f64 phi2 #s(literal -4593918114535591/2417851639229258349412352 binary64)) (not (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)))) (atan2.f64 #s(approx (* (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (sin.f64 lambda2) (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal -220000000000000 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (if (<=.f64 phi1 #s(literal 5534023222112865/18446744073709551616 binary64)) (atan2.f64 #s(approx (+ ( (* (cos lambda2) (sin lambda1)) (cos phi2)) (* (* (neg (cos lambda1)) (sin lambda2)) (cos phi2))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi1 #s(literal -220000000000000 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (if (<=.f64 phi1 #s(literal 5534023222112865/18446744073709551616 binary64)) (atan2.f64 #s(approx ( (cos phi2) (+ (* (neg (cos lambda1)) (sin lambda2)) (* (sin lambda1) (cos lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi2 #s(literal -3/2 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (neg.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx ( (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (fma.f64 (-.f64 (cos.f64 phi1) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64))) phi2 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 phi2 #s(literal -3/2 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (neg.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx ( (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (<=.f64 phi2 #s(literal -1 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (or (<=.f64 phi2 #s(literal -1 binary64)) (not (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(if (<=.f64 phi2 #s(literal -5764607523034235/9007199254740992 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (or (<=.f64 phi2 #s(literal -5764607523034235/9007199254740992 binary64)) (not (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi2 #s(literal -5764607523034235/9007199254740992 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (or (<=.f64 phi2 #s(literal -5764607523034235/9007199254740992 binary64)) (not (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi2 #s(literal -5764607523034235/9007199254740992 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (or (<=.f64 phi2 #s(literal -5764607523034235/9007199254740992 binary64)) (not (<=.f64 phi2 #s(literal 1200718648536179/162259276829213363391578010288128 binary64)))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
(if (<=.f64 lambda2 #s(literal -7060839510393891/2521728396569246669585858566409191283525103313309788586748690777871726193375821479130513040312634601011624191379636224 binary64)) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (if (<=.f64 lambda2 #s(literal 817040425928351/2475880078570760549798248448 binary64)) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))))
(if (or (<=.f64 lambda2 #s(literal -7060839510393891/2521728396569246669585858566409191283525103313309788586748690777871726193375821479130513040312634601011624191379636224 binary64)) (not (<=.f64 lambda2 #s(literal 817040425928351/2475880078570760549798248448 binary64)))) (atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))) (atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (/ (* (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (* (cos (- lambda2 lambda1)) (cos (+ lambda2 lambda1)))) (* 2 (cos (+ lambda2 lambda1))))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

derivations850.0ms (3.5%)

Memory

36.3MiB live, 841.4MiB allocated; 100ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 2 541 to 262 computations (89.7% saved)

preprocess195.0ms (0.8%)

Memory: -12.8MiB live, 362.5MiB allocated; 46ms collecting garbage
Compiler: Compiled 5 130 to 558 computations (89.1% saved)

end0.0ms (0%)

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