Metrics for Bearing on a great circle

start0.0ms (0%)

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

analyze825.0ms (4.3%)

Memory

-16.9MiB live, 1 453.7MiB allocated; 206ms 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)

sample8.2s (42.8%)

Memory

-11.6MiB live, 8 901.4MiB allocated; 2.8s collecting garbage

Samples

6.9s	5 981×	1	valid
728.0ms	2 275×	0	valid

Precisions

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

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

ival-sin: 2.5s (35.6% of total)

ival-mult!: 1.1s (15.9% of total)

adjust: 417.0ms (5.9% of total)

ival-sub!: 258.0ms (3.7% of total)

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

Bogosity

preprocess55.0ms (0.3%)

Memory

-13.2MiB live, 33.1MiB allocated; 4ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	107	370
1	504	368
2	4735	368

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	75.6%	(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 38 to 34 computations (10.5% saved)

series36.0ms (0.2%)

Memory

9.9MiB live, 55.5MiB allocated; 4ms collecting garbage

Counts

17 → 120

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

Calls

12 calls:

Time	Variable		Point	Expression
7.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) lambda1 lambda2 (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)))
3.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) lambda1 lambda2 (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)))
3.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) lambda1 lambda2 (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)))
3.0ms	lambda2	@	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) lambda1 lambda2 (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)))
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) lambda1 lambda2 (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)))

rewrite236.0ms (1.2%)

Memory

-5.5MiB live, 184.3MiB allocated; 41ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	563	3145
0	585	3070
1	4080	3070
0	8365	2946
1	24034	2946

Stop Event

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

Counts

137 → 227

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

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

eval33.0ms (0.2%)

Memory: 2.3MiB live, 47.5MiB allocated; 4ms collecting garbage
Compiler: Compiled 3 006 to 1 269 computations (57.8% saved)

prune51.0ms (0.3%)

Memory

19.1MiB live, 71.1MiB allocated; 7ms collecting garbage

Pruning

49 alts after pruning (49 fresh and 0 done)

	Pruned	Kept	Total
New	157	49	206
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	158	49	207

Accuracy

87.7%

Counts

207 → 49

Alt Table

Click to see full alt table

Status	Accuracy	Program
	14.4%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #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)))))
	42.0%	(atan2.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (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)))))
	87.1%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (cos.f64 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)))))
▶	87.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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)))))
	46.1%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))))))
	75.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	45.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.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))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	46.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	75.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1)))))
	71.3%	(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 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
	75.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	61.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	61.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	75.6%	(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 (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))))))))
	76.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)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	76.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)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	57.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)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	57.6%	(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)))))))
	61.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 lambda1) lambda2 (cos.f64 lambda1))))))
	62.6%	(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 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
	65.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)) (cos.f64 lambda1)))))
	44.7%	(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) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1) #s(literal -1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	43.9%	(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) (.f64 (fma.f64 (fma.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1) #s(literal -1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	44.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) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	44.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 (cos.f64 phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	66.4%	(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 lambda2) (sin.f64 phi1)) (cos.f64 phi2)))))
	61.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)))))
	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2) #s(literal -1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	46.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	47.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	60.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	44.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #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 lambda2 lambda1)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
	44.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	44.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (sin.f64 phi2))))
▶	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	44.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
▶	42.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	41.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	42.9%	(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)))) (-.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)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	59.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) 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 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))))
	41.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) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
	57.5%	(atan2.f64 (.f64 #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)))) (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.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (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)))))
▶	56.7%	(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)))))
	60.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 lambda2 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) (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)))))
	47.9%	(atan2.f64 (.f64 #s(approx (sin (- 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)))))
	41.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (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)))))
	42.7%	(atan2.f64 #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)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Compiler

Compiled 2 598 to 2 280 computations (12.2% saved)

series70.0ms (0.4%)

Memory

3.8MiB live, 95.2MiB allocated; 7ms collecting garbage

Counts

54 → 249

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable		Point	Expression
9.0ms	lambda2	@	-inf	((atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- 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)) (- (* (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)) (cos phi2) (+ (* (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (* phi2 phi2)) 1) (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2) -1/720 1/24 -1/2 1 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (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 lambda2) lambda1) (neg (sin lambda2))) (neg (sin lambda2)))
9.0ms	phi2	@	inf	((atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- 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)) (- (* (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)) (cos phi2) (+ (* (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (* phi2 phi2)) 1) (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2) -1/720 1/24 -1/2 1 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (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 lambda2) lambda1) (neg (sin lambda2))) (neg (sin lambda2)))
7.0ms	lambda1	@	-inf	((atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- 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)) (- (* (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)) (cos phi2) (+ (* (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (* phi2 phi2)) 1) (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2) -1/720 1/24 -1/2 1 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (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 lambda2) lambda1) (neg (sin lambda2))) (neg (sin lambda2)))
6.0ms	phi2	@	-inf	((atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- 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)) (- (* (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)) (cos phi2) (+ (* (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (* phi2 phi2)) 1) (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2) -1/720 1/24 -1/2 1 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (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 lambda2) lambda1) (neg (sin lambda2))) (neg (sin lambda2)))
5.0ms	lambda2	@	inf	((atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- 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)) (- (* (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)) (cos phi2) (+ (* (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (* phi2 phi2)) 1) (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2) -1/720 1/24 -1/2 1 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (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 lambda2) lambda1) (neg (sin lambda2))) (neg (sin lambda2)))

rewrite214.0ms (1.1%)

Memory

10.1MiB live, 189.1MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1192	7945
0	1280	7236
0	8740	7084
1	23084	7084

Stop Event

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

Counts

303 → 482

Calls

Call 1

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

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

eval95.0ms (0.5%)

Memory: -5.8MiB live, 136.4MiB allocated; 19ms collecting garbage
Compiler: Compiled 11 444 to 3 110 computations (72.8% saved)

prune172.0ms (0.9%)

Memory

13.8MiB live, 172.9MiB allocated; 104ms collecting garbage

Pruning

86 alts after pruning (85 fresh and 1 done)

	Pruned	Kept	Total
New	625	59	684
Fresh	18	26	44
Picked	4	1	5
Done	0	0	0
Total	647	86	733

Accuracy

99.8%

Counts

733 → 86

Alt Table

Click to see full alt table

Status	Accuracy	Program
	42.0%	(atan2.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (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)))))
	87.1%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.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)))))
	78.0%	(atan2.f64 (.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.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.3%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.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)))))
	80.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 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 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)))))))
▶	99.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	69.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 1/2 binary64))))))))
	70.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))))
	68.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) lambda2))))))
	77.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (cos.f64 lambda2)))))
	77.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (cos.f64 phi2)))))
▶	73.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	49.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	54.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (neg.f64 (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
▶	50.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	78.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (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)))))
	64.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 lambda2 lambda2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 lambda2 lambda2))))) (.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)))))
	24.6%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	75.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	45.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.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))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	37.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	29.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	75.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1)))))
	71.3%	(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 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
	75.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	61.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	61.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	76.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)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	56.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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 lambda1 (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
	65.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (cos.f64 lambda1)))))
	61.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 lambda1) lambda2 (cos.f64 lambda1))))))
	62.6%	(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 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
	44.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 (cos.f64 phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	53.6%	(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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)) (sin.f64 phi1)))))
	66.4%	(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 lambda2) (sin.f64 phi1)) (cos.f64 phi2)))))
▶	61.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)))))
	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2) #s(literal -1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	60.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	37.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (.f64 (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)) (sin.f64 phi1)))))
	44.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	44.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (sin.f64 phi2))))
✓	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	44.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	27.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (*.f64 phi2 phi2))) phi2))))
	28.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2))) phi2))))
	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (fma.f64 (sin.f64 lambda1) (cos.f64 (-.f64 (neg.f64 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	35.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) lambda2))))))
	37.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (cos.f64 lambda2)))))
	27.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (.f64 phi1 phi1))) phi1)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	39.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/5040 binary64) (.f64 phi2 phi2))) (.f64 phi2 phi2) #s(literal -1/6 binary64)) (.f64 phi2 phi2))) phi2))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	40.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2))) phi2))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	29.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 phi1)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	42.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 (cos.f64 phi1) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	41.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	42.9%	(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)))) (-.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)))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	27.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	26.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (.f64 phi2 phi2))) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	32.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	25.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	8.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(literal -1/720 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(literal -1/720 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	59.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) 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 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))))
	35.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	32.8%	(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 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	41.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) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
	27.0%	(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)))
	26.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
	59.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (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)))))
	56.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	56.7%	(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)) (fma.f64 (sin.f64 lambda1) (cos.f64 (-.f64 (neg.f64 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
	57.0%	(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)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	52.5%	(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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda2) (.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1))))))
	56.9%	(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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))))))
	35.0%	(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) #s(approx (sin phi2) (.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (.f64 phi2 phi2))) phi2))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	35.9%	(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) #s(approx (sin phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2))) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	36.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	35.9%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (neg.f64 (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
	36.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	39.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (-.f64 (neg.f64 (cos.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) lambda2))) lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	40.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (+.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (fma.f64 (sin.f64 lambda1) #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal 1/6 binary64))) lambda2)) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	36.1%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (-.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) lambda1))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	35.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	47.9%	(atan2.f64 (.f64 #s(approx (sin (- 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)))))
	41.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (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)))))
	40.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (cos lambda2) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 (fma.f64 (.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal -1 binary64)) 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)))))
	32.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (neg.f64 (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 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))

Compiler

Compiled 5 363 to 4 689 computations (12.6% saved)

series121.0ms (0.6%)

Memory

-30.9MiB live, 111.4MiB allocated; 23ms collecting garbage

Counts

49 → 309

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable		Point	Expression
46.0ms	phi2	@	-inf	((atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin 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) (cos phi2) (- 1 (* 1/2 (* phi2 phi2))) 1 (* 1/2 (* phi2 phi2)) 1/2 (* phi2 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)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos (- lambda2 lambda1)) (sin phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))
10.0ms	lambda2	@	-inf	((atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin 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) (cos phi2) (- 1 (* 1/2 (* phi2 phi2))) 1 (* 1/2 (* phi2 phi2)) 1/2 (* phi2 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)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos (- lambda2 lambda1)) (sin phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))
10.0ms	lambda1	@	0	((atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin 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) (cos phi2) (- 1 (* 1/2 (* phi2 phi2))) 1 (* 1/2 (* phi2 phi2)) 1/2 (* phi2 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)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos (- lambda2 lambda1)) (sin phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))
7.0ms	phi2	@	inf	((atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin 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) (cos phi2) (- 1 (* 1/2 (* phi2 phi2))) 1 (* 1/2 (* phi2 phi2)) 1/2 (* phi2 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)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos (- lambda2 lambda1)) (sin phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))
6.0ms	phi1	@	inf	((atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin 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) (cos phi2) (- 1 (* 1/2 (* phi2 phi2))) 1 (* 1/2 (* phi2 phi2)) 1/2 (* phi2 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)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos (- lambda2 lambda1)) (sin phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))

rewrite283.0ms (1.5%)

Memory

11.8MiB live, 250.0MiB allocated; 45ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1469	10142
0	1544	9213
0	8423	8988
1	20328	8988

Stop Event

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

Counts

358 → 478

Calls

Call 1

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

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

eval139.0ms (0.7%)

Memory: 29.2MiB live, 164.1MiB allocated; 20ms collecting garbage
Compiler: Compiled 10 600 to 2 948 computations (72.2% saved)

prune268.0ms (1.4%)

Memory

-42.1MiB live, 203.1MiB allocated; 41ms collecting garbage

Pruning

122 alts after pruning (118 fresh and 4 done)

	Pruned	Kept	Total
New	593	62	655
Fresh	24	56	80
Picked	2	3	5
Done	0	1	1
Total	619	122	741

Accuracy

99.8%

Counts

741 → 122

Alt Table

Click to see full alt table

Status	Accuracy	Program
	41.6%	(atan2.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	39.7%	(atan2.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	99.7%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.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 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	73.2%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	50.6%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	92.2%	(atan2.f64 (.f64 (/.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))) (fma.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (fma.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	95.0%	(atan2.f64 (.f64 (/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.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 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	64.2%	(atan2.f64 (.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	46.7%	(atan2.f64 (.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	47.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	80.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 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 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)))))))
✓	99.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	99.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
	69.0%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))
	70.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))))
	68.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) lambda2))))))
	77.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (cos.f64 lambda2)))))
	77.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (cos.f64 phi2)))))
	64.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
✓	73.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	60.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (sin.f64 phi1)))))
	68.0%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
	69.0%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))
	68.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
	57.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	54.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (neg.f64 (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
	42.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
✓	50.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	40.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (neg.f64 (sin.f64 lambda2)))))) (sin.f64 phi1)))))
	45.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
	46.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	33.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda2 lambda1)))))))
	54.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64)))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	45.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	56.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (.f64 lambda2 lambda2))) #s(literal -1/6 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 lambda2 lambda2))) #s(literal -1/6 binary64)))))))))))
	57.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal 1/120 binary64) (.f64 lambda2 lambda2) #s(literal -1/6 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal 1/120 binary64) (*.f64 lambda2 lambda2) #s(literal -1/6 binary64)))))))))))
	69.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	79.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (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 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	64.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	47.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	8.9%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	36.8%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.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)))))
	24.6%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	15.4%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	75.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	45.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.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))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	37.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	45.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (-.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)))))
	29.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	75.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1)))))
	71.3%	(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 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
	75.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	61.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	61.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	56.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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 lambda1 (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
	65.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (cos.f64 lambda1)))))
	61.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 lambda1) lambda2 (cos.f64 lambda1))))))
	62.6%	(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 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
	44.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 (cos.f64 phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	53.6%	(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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)) (sin.f64 phi1)))))
▶	66.4%	(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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
	48.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 #s(approx (- lambda2 lambda1) (.f64 #s(literal -1 binary64) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
	56.7%	(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 #s(approx (- lambda2 lambda1) lambda2)) (sin.f64 phi1)))))
	53.7%	(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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1 binary64) (*.f64 lambda2 (neg.f64 (sin.f64 lambda1)))))) (sin.f64 phi1)))))
	57.6%	(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 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
	43.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))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda2 lambda1)))))))
	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2) #s(literal -1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	46.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	60.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	37.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (.f64 (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)) (sin.f64 phi1)))))
	44.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	44.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (sin.f64 phi2))))
✓	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	27.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (*.f64 phi2 phi2))) phi2))))
	28.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2))) phi2))))
	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (fma.f64 (sin.f64 lambda1) (cos.f64 (-.f64 (neg.f64 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	39.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/5040 binary64) (.f64 phi2 phi2))) (.f64 phi2 phi2) #s(literal -1/6 binary64)) (.f64 phi2 phi2))) phi2))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	40.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2))) phi2))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	42.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 (cos.f64 phi1) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	41.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	42.9%	(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)))) (-.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)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	42.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	26.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (.f64 phi2 phi2))) #s(literal -1/6 binary64))))))))
	26.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal 1/120 binary64) (.f64 phi2 phi2) #s(literal -1/6 binary64))))))))
▶	26.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	26.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (.f64 phi2 phi2))) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	32.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	25.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	8.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (- 1 ( 1/2 (* phi2 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	8.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(literal -1/720 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (+ (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) -1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(literal -1/720 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	59.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) 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 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))))
	35.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	48.8%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (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)))))
	32.8%	(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 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	41.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) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
	27.0%	(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)))
	26.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
	59.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (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)))))
	56.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	52.5%	(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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda2) (.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1))))))
▶	56.9%	(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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))))))
	35.0%	(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) #s(approx (sin phi2) (.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (.f64 phi2 phi2))) phi2))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	36.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	36.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	39.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (-.f64 (neg.f64 (cos.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) lambda2))) lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	40.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (+.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (fma.f64 (sin.f64 lambda1) #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal 1/6 binary64))) lambda2)) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	51.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	37.5%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	35.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	24.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2)))))))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	24.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	42.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (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 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	27.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	34.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (neg.f64 (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 lambda2 lambda1)) (sin.f64 phi1)))))
	20.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	40.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (cos lambda2) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 (fma.f64 (.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal -1 binary64)) 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.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (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 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	32.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (neg.f64 (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 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	48.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	41.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	31.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

Compiler

Compiled 8 048 to 7 097 computations (11.8% saved)

series99.0ms (0.5%)

Memory

17.7MiB live, 209.2MiB allocated; 20ms collecting garbage

Counts

68 → 322

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable		Point	Expression
18.0ms	phi2	@	inf	((atan2 (* (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (cos phi2)) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (neg (cos lambda1)) (sin lambda2)) (neg (cos lambda1)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin 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) (cos phi2) (- 1 (* 1/2 (* phi2 phi2))) 1 (* 1/2 (* phi2 phi2)) 1/2 (* phi2 phi2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* -1/6 (* phi2 phi2)))) (+ 1 (* -1/6 (* phi2 phi2))) (* -1/6 (* phi2 phi2)) -1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ 1 (* -1/2 (* phi1 phi1))) (* -1/2 (* phi1 phi1)) -1/2 (* phi1 phi1) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos (- lambda2 lambda1)) (sin phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi2) (* (cos lambda2) (sin phi1))) (* (cos lambda2) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (neg (sin lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1))
11.0ms	phi2	@	-inf	((atan2 (* (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (cos phi2)) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (neg (cos lambda1)) (sin lambda2)) (neg (cos lambda1)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin 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) (cos phi2) (- 1 (* 1/2 (* phi2 phi2))) 1 (* 1/2 (* phi2 phi2)) 1/2 (* phi2 phi2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* -1/6 (* phi2 phi2)))) (+ 1 (* -1/6 (* phi2 phi2))) (* -1/6 (* phi2 phi2)) -1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ 1 (* -1/2 (* phi1 phi1))) (* -1/2 (* phi1 phi1)) -1/2 (* phi1 phi1) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos (- lambda2 lambda1)) (sin phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi2) (* (cos lambda2) (sin phi1))) (* (cos lambda2) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (neg (sin lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1))
8.0ms	lambda1	@	-inf	((atan2 (* (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (cos phi2)) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (neg (cos lambda1)) (sin lambda2)) (neg (cos lambda1)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin 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) (cos phi2) (- 1 (* 1/2 (* phi2 phi2))) 1 (* 1/2 (* phi2 phi2)) 1/2 (* phi2 phi2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* -1/6 (* phi2 phi2)))) (+ 1 (* -1/6 (* phi2 phi2))) (* -1/6 (* phi2 phi2)) -1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ 1 (* -1/2 (* phi1 phi1))) (* -1/2 (* phi1 phi1)) -1/2 (* phi1 phi1) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos (- lambda2 lambda1)) (sin phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi2) (* (cos lambda2) (sin phi1))) (* (cos lambda2) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (neg (sin lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1))
7.0ms	phi1	@	inf	((atan2 (* (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (cos phi2)) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (neg (cos lambda1)) (sin lambda2)) (neg (cos lambda1)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin 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) (cos phi2) (- 1 (* 1/2 (* phi2 phi2))) 1 (* 1/2 (* phi2 phi2)) 1/2 (* phi2 phi2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* -1/6 (* phi2 phi2)))) (+ 1 (* -1/6 (* phi2 phi2))) (* -1/6 (* phi2 phi2)) -1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ 1 (* -1/2 (* phi1 phi1))) (* -1/2 (* phi1 phi1)) -1/2 (* phi1 phi1) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos (- lambda2 lambda1)) (sin phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi2) (* (cos lambda2) (sin phi1))) (* (cos lambda2) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (neg (sin lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1))
7.0ms	lambda2	@	-inf	((atan2 (* (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (cos phi2)) (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (sin lambda1) lambda1 (cos lambda2) lambda2 (* (neg (cos lambda1)) (sin lambda2)) (neg (cos lambda1)) (cos lambda1) (sin lambda2) (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin 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) (cos phi2) (- 1 (* 1/2 (* phi2 phi2))) 1 (* 1/2 (* phi2 phi2)) 1/2 (* phi2 phi2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* -1/6 (* phi2 phi2)))) (+ 1 (* -1/6 (* phi2 phi2))) (* -1/6 (* phi2 phi2)) -1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ 1 (* -1/2 (* phi1 phi1))) (* -1/2 (* phi1 phi1)) -1/2 (* phi1 phi1) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos (- lambda2 lambda1)) (sin phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi2) (* (cos lambda2) (sin phi1))) (* (cos lambda2) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (neg (sin lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1))

rewrite260.0ms (1.4%)

Memory

7.3MiB live, 233.5MiB allocated; 30ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1571	10589
0	1676	9824
0	8456	9606
1	20368	9606

Stop Event

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

Counts

390 → 494

Calls

Call 1

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

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

eval94.0ms (0.5%)

Memory: 22.2MiB live, 162.2MiB allocated; 33ms collecting garbage
Compiler: Compiled 10 062 to 3 391 computations (66.3% saved)

prune287.0ms (1.5%)

Memory

-14.0MiB live, 263.5MiB allocated; 49ms collecting garbage

Pruning

137 alts after pruning (132 fresh and 5 done)

	Pruned	Kept	Total
New	511	38	549
Fresh	19	94	113
Picked	3	2	5
Done	1	3	4
Total	534	137	671

Accuracy

99.8%

Counts

671 → 137

Alt Table

Click to see full alt table

Status	Accuracy	Program
	41.6%	(atan2.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	29.9%	(atan2.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	39.7%	(atan2.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
✓	99.7%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.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 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	99.7%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.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)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
	77.8%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
	77.2%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.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 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
	56.1%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (sin.f64 phi2)))
	50.6%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	54.2%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	55.1%	(atan2.f64 (.f64 (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	92.2%	(atan2.f64 (.f64 (/.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))) (fma.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (fma.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	95.0%	(atan2.f64 (.f64 (/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 (sin.f64 lambda1) (cos.f64 lambda2) (.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 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	64.2%	(atan2.f64 (.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	46.7%	(atan2.f64 (.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	47.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	80.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 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 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)))))))
✓	99.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	99.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
	69.0%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))
	70.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))))
	68.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) lambda2))))))
	77.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (cos.f64 lambda2)))))
	77.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (cos.f64 phi2)))))
	64.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
	60.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (sin.f64 phi1)))))
	68.0%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
	69.0%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))
	68.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
	57.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	54.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (neg.f64 (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
	42.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
✓	50.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	45.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
	46.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	30.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	54.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64)))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	45.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2) #s(literal -1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	56.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (.f64 lambda2 lambda2))) #s(literal -1/6 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 lambda2 lambda2))) #s(literal -1/6 binary64)))))))))))
	57.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal 1/120 binary64) (.f64 lambda2 lambda2) #s(literal -1/6 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal 1/120 binary64) (*.f64 lambda2 lambda2) #s(literal -1/6 binary64)))))))))))
	69.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	79.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (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 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	47.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	9.4%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	24.6%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	14.7%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	75.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	45.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.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))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	37.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	45.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (-.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)))))
	29.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	75.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1)))))
	71.3%	(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 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
	38.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (sin.f64 phi2)) (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (sin.f64 phi2)) (fma.f64 #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))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1))))))))
	75.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	61.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	56.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
	56.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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 lambda1 (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
	65.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (cos.f64 lambda1)))))
	61.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 lambda1) lambda2 (cos.f64 lambda1))))))
	62.6%	(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 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
	53.6%	(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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)) (sin.f64 phi1)))))
	56.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) #s(approx ( (cos lambda2) (sin phi1)) (sin.f64 phi1))))))
	48.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 #s(approx (- lambda2 lambda1) (.f64 #s(literal -1 binary64) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
	56.7%	(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 #s(approx (- lambda2 lambda1) lambda2)) (sin.f64 phi1)))))
	53.7%	(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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1 binary64) (*.f64 lambda2 (neg.f64 (sin.f64 lambda1)))))) (sin.f64 phi1)))))
	57.6%	(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 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
	43.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))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda2 lambda1)))))))
	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2) #s(literal -1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	44.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda2 lambda1)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda2 lambda1)))))))
	60.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	37.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (.f64 (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)) (sin.f64 phi1)))))
	44.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	44.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (sin.f64 phi2))))
✓	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	27.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (*.f64 phi2 phi2))) phi2))))
	28.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2))) phi2))))
	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (fma.f64 (sin.f64 lambda1) (cos.f64 (-.f64 (neg.f64 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	39.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/5040 binary64) (.f64 phi2 phi2))) (.f64 phi2 phi2) #s(literal -1/6 binary64)) (.f64 phi2 phi2))) phi2))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	40.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2))) phi2))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	42.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 (cos.f64 phi1) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	42.9%	(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)))) (-.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)))) (cos.f64 (-.f64 lambda1 lambda2)))))
	24.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	42.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	41.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	26.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (.f64 phi2 phi2))) #s(literal -1/6 binary64))))))))
	26.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal 1/120 binary64) (.f64 phi2 phi2) #s(literal -1/6 binary64))))))))
✓	26.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	25.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (* phi2 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 (*.f64 phi2 phi2) phi2))))))
	26.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (.f64 phi2 phi2))) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	32.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	25.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	29.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal 1/2 binary64)))))) (-.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	38.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
	8.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (- 1 ( 1/2 (* phi2 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	7.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (- 1 ( 1/2 (* phi2 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	59.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) 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 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))))
	35.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	48.8%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (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)))))
	32.8%	(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 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	41.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) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
	27.0%	(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)))
	26.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
	42.0%	(atan2.f64 (.f64 #s(approx (+ ( (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (.f64 #s(literal -1 binary64) (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 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	48.5%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (sin.f64 (+.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) 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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))))))
	59.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (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)))))
	21.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (sin.f64 (+.f64 lambda2 (PI.f64))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (sin.f64 (+.f64 lambda2 (PI.f64)))))))))
	56.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	52.5%	(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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda2) (.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1))))))
	41.7%	(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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(approx (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))))
	56.9%	(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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(approx (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))))))
	36.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	35.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))))))
	36.1%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 #s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/120 binary64) (.f64 lambda2 lambda2)))) #s(literal 1 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) #s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/120 binary64) (*.f64 lambda2 lambda2)))) #s(literal 1 binary64))))))))))
	36.1%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda2 lambda2)) #s(literal 1/2 binary64))))) 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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda2 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))))))
	36.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	39.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (-.f64 (neg.f64 (cos.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) lambda2))) lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	51.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	37.5%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	35.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	24.1%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2)))))))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	23.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	27.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	41.5%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
	34.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (neg.f64 (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 lambda2 lambda1)) (sin.f64 phi1)))))
	26.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))))
	20.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	19.9%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2))) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	56.9%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (cos lambda2) lambda1) (neg (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))))))
	48.3%	(atan2.f64 #s(approx (* (+ (* (sin lambda1) (cos lambda2)) (* (neg (cos lambda1)) (sin lambda2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	24.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	54.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (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 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	25.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
	32.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (neg.f64 (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 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	31.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	20.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))

Compiler

Compiled 7 693 to 5 331 computations (30.7% saved)

regimes541.0ms (2.8%)

Memory

26.6MiB live, 549.2MiB allocated; 50ms collecting garbage

Counts

209 → 1

Calls

Call 1

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

Outputs

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

Calls

6 calls:

132.0ms	(-.f64 lambda1 lambda2)
120.0ms	lambda2
112.0ms	lambda1
59.0ms	phi2
55.0ms	phi1

Results

Accuracy	Segments	Branch
99.7%	1	`(-.f64 lambda1 lambda2)`
99.7%	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.7%	1	`lambda1`
99.7%	1	`lambda2`
99.7%	1	`phi1`
99.7%	1	`phi2`

Compiler

Compiled 26 to 38 computations (-46.2% saved)

regimes325.0ms (1.7%)

Memory

24.3MiB live, 548.7MiB allocated; 54ms collecting garbage

Counts

199 → 1

Calls

Call 1

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

Outputs

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

Calls

6 calls:

58.0ms	phi1
54.0ms	phi2
52.0ms	lambda1
52.0ms	lambda2
51.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
99.7%	1	`(-.f64 lambda1 lambda2)`
99.7%	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.7%	1	`lambda1`
99.7%	1	`lambda2`
99.7%	1	`phi1`
99.7%	1	`phi2`

Compiler

Compiled 26 to 38 computations (-46.2% saved)

regimes340.0ms (1.8%)

Memory

-11.0MiB live, 473.9MiB allocated; 110ms collecting garbage

Counts

198 → 3

Calls

Call 1

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

Outputs

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

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

78.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)))))
52.0ms	phi1
51.0ms	lambda2
49.0ms	(-.f64 lambda1 lambda2)
49.0ms	phi2

Results

Accuracy	Segments	Branch
87.1%	1	`(-.f64 lambda1 lambda2)`
87.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)))))`
87.1%	1	`lambda1`
87.1%	1	`lambda2`
87.1%	1	`phi1`
94.6%	3	`phi2`

Compiler

Compiled 26 to 38 computations (-46.2% saved)

regimes61.0ms (0.3%)

Memory

-11.0MiB live, 88.6MiB allocated; 11ms collecting garbage

Counts

195 → 3

Calls

Call 1

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

Outputs

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

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

1 calls:

50.0ms

phi2

Results

Accuracy	Segments	Branch
94.6%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes60.0ms (0.3%)

Memory

-1.8MiB live, 89.2MiB allocated; 5ms collecting garbage

Counts

194 → 3

Calls

Call 1

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

Outputs

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

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

1 calls:

50.0ms

phi2

Results

Accuracy	Segments	Branch
94.6%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes164.0ms (0.9%)

Memory

-18.7MiB live, 170.5MiB allocated; 16ms collecting garbage

Counts

191 → 1

Calls

Call 1

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

Outputs

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

3 calls:

52.0ms	phi2
51.0ms	(-.f64 lambda1 lambda2)
50.0ms	lambda1

Results

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

Compiler

Compiled 5 to 13 computations (-160% saved)

regimes342.0ms (1.8%)

Memory

17.8MiB live, 307.4MiB allocated; 24ms collecting garbage

Counts

174 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

6 calls:

64.0ms	(-.f64 lambda1 lambda2)
60.0ms	lambda1
57.0ms	phi1
55.0ms	phi2
49.0ms	lambda2

Results

Accuracy	Segments	Branch
81.0%	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)) (cos.f64 (-.f64 lambda1 lambda2)))))`
87.1%	3	`lambda2`
86.2%	3	`phi1`
83.1%	3	`phi2`
84.1%	3	`(-.f64 lambda1 lambda2)`
87.5%	3	`lambda1`

Compiler

Compiled 26 to 38 computations (-46.2% saved)

regimes152.0ms (0.8%)

Memory

24.8MiB live, 213.9MiB allocated; 17ms collecting garbage

Counts

166 → 3

Calls

Call 1

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

Outputs

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

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (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

3 calls:

54.0ms	lambda1
46.0ms	lambda2
43.0ms	phi1

Results

Accuracy	Segments	Branch
86.0%	3	`phi1`
81.1%	2	`lambda2`
82.6%	2	`lambda1`

Compiler

Compiled 3 to 12 computations (-300% saved)

regimes51.0ms (0.3%)

Memory

-35.9MiB live, 102.2MiB allocated; 9ms collecting garbage

Counts

147 → 3

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

39.0ms

phi1

Results

Accuracy	Segments	Branch
85.6%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes46.0ms (0.2%)

Memory

-3.8MiB live, 140.8MiB allocated; 7ms collecting garbage

Counts

142 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

38.0ms

phi1

Results

Accuracy	Segments	Branch
84.9%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes35.0ms (0.2%)

Memory

40.8MiB live, 86.5MiB allocated; 3ms collecting garbage

Counts

109 → 3

Calls

Call 1

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

Calls

1 calls:

29.0ms

phi1

Results

Accuracy	Segments	Branch
84.9%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes203.0ms (1.1%)

Memory

10.6MiB live, 334.2MiB allocated; 50ms collecting garbage

Counts

108 → 3

Calls

Call 1

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

Outputs

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

Calls

6 calls:

41.0ms	phi2
31.0ms	lambda2
31.0ms	lambda1
31.0ms	(-.f64 lambda1 lambda2)
30.0ms	phi1

Results

Accuracy	Segments	Branch
72.2%	4	`(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.1%	4	`lambda2`
76.5%	3	`phi2`
79.2%	3	`lambda1`
73.6%	3	`(-.f64 lambda1 lambda2)`
77.8%	3	`phi1`

Compiler

Compiled 26 to 38 computations (-46.2% saved)

regimes41.0ms (0.2%)

Memory

12.6MiB live, 56.7MiB allocated; 7ms collecting garbage

Counts

101 → 3

Calls

Call 1

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

Outputs

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

(atan2.f64 (*.f64 #s(approx (sin (- 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)))))

Calls

1 calls:

35.0ms

lambda1

Results

Accuracy	Segments	Branch
79.2%	3	`lambda1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes234.0ms (1.2%)

Memory

-9.1MiB live, 221.8MiB allocated; 46ms collecting garbage

Counts

99 → 3

Calls

Call 1

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

Outputs

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

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

Calls

5 calls:

48.0ms	(-.f64 lambda1 lambda2)
45.0ms	phi2
43.0ms	lambda2
42.0ms	phi1
25.0ms	lambda1

Results

Accuracy	Segments	Branch
71.1%	4	`(-.f64 lambda1 lambda2)`
72.0%	3	`phi2`
70.3%	3	`lambda2`
71.9%	3	`phi1`
72.5%	4	`lambda1`

Compiler

Compiled 7 to 21 computations (-200% saved)

regimes83.0ms (0.4%)

Memory

-2.7MiB live, 86.6MiB allocated; 11ms collecting garbage

Counts

89 → 3

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

44.0ms	phi2
34.0ms	phi1

Results

Accuracy	Segments	Branch
71.2%	3	`phi1`
69.8%	3	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes35.0ms (0.2%)

Memory

-6.3MiB live, 38.4MiB allocated; 6ms collecting garbage

Counts

67 → 3

Calls

Call 1

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

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

Calls

1 calls:

31.0ms

phi1

Results

Accuracy	Segments	Branch
71.0%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes145.0ms (0.8%)

Memory

11.8MiB live, 149.3MiB allocated; 27ms collecting garbage

Counts

65 → 3

Calls

Call 1

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

Outputs

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

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

Calls

5 calls:

45.0ms	lambda1
34.0ms	phi2
29.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)))))
17.0ms	lambda2
17.0ms	phi1

Results

Accuracy	Segments	Branch
69.8%	3	`phi2`
68.8%	3	`lambda2`
68.5%	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)))))`
67.8%	3	`lambda1`
69.6%	3	`phi1`

Compiler

Compiled 23 to 33 computations (-43.5% saved)

regimes50.0ms (0.3%)

Memory

18.6MiB live, 63.5MiB allocated; 6ms collecting garbage

Counts

63 → 3

Calls

Call 1

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

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

Calls

2 calls:

30.0ms	phi1
16.0ms	phi2

Results

Accuracy	Segments	Branch
69.5%	3	`phi1`
67.3%	3	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes101.0ms (0.5%)

Memory

-19.3MiB live, 74.5MiB allocated; 73ms collecting garbage

Counts

59 → 3

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

77.0ms	phi1
20.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
61.5%	4	`(-.f64 lambda1 lambda2)`
68.9%	3	`phi1`

Compiler

Compiled 4 to 9 computations (-125% saved)

regimes86.0ms (0.5%)

Memory

7.7MiB live, 152.7MiB allocated; 17ms collecting garbage

Counts

56 → 3

Calls

Call 1

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

Outputs

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

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

Calls

5 calls:

19.0ms	lambda2
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)))))
17.0ms	lambda1
14.0ms	phi1
14.0ms	phi2

Results

Accuracy	Segments	Branch
53.0%	4	`(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)))))`
60.4%	3	`phi2`
48.7%	2	`lambda1`
50.1%	2	`lambda2`
60.4%	3	`phi1`

Compiler

Compiled 23 to 33 computations (-43.5% saved)

regimes24.0ms (0.1%)

Memory

1.3MiB live, 47.3MiB allocated; 3ms collecting garbage

Counts

37 → 3

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

12.0ms	phi1
10.0ms	phi2

Results

Accuracy	Segments	Branch
58.8%	3	`phi1`
60.2%	3	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes47.0ms (0.2%)

Memory

-0.4MiB live, 92.5MiB allocated; 7ms collecting garbage

Counts

25 → 1

Calls

Call 1

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

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

Calls

6 calls:

9.0ms	(-.f64 lambda1 lambda2)
9.0ms	lambda1
7.0ms	phi1
7.0ms	lambda2
7.0ms	phi2

Results

Accuracy	Segments	Branch
45.0%	1	`lambda1`
45.0%	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)))))`
45.0%	1	`lambda2`
45.0%	1	`phi1`
45.0%	1	`(-.f64 lambda1 lambda2)`
45.0%	1	`phi2`

Compiler

Compiled 26 to 38 computations (-46.2% saved)

regimes37.0ms (0.2%)

Memory

22.7MiB live, 74.4MiB allocated; 5ms collecting garbage

Counts

19 → 2

Calls

Call 1

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

Calls

6 calls:

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

Results

Accuracy	Segments	Branch
32.5%	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)))))`
32.9%	3	`lambda2`
30.6%	2	`(-.f64 lambda1 lambda2)`
34.2%	3	`lambda1`
31.6%	3	`phi1`
34.2%	2	`phi2`

Compiler

Compiled 26 to 38 computations (-46.2% saved)

regimes15.0ms (0.1%)

Memory

-21.6MiB live, 24.4MiB allocated; 4ms collecting garbage

Counts

18 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

8.0ms	phi2
5.0ms	lambda1

Results

Accuracy	Segments	Branch
28.1%	1	`lambda1`
32.6%	2	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes21.0ms (0.1%)

Memory

-3.7MiB live, 42.4MiB allocated; 4ms collecting garbage

Counts

14 → 2

Calls

Call 1

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

Outputs

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

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

Calls

4 calls:

7.0ms	(-.f64 lambda1 lambda2)
4.0ms	phi2
4.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)))))
4.0ms	lambda2

Results

Accuracy	Segments	Branch
27.6%	1	`(-.f64 lambda1 lambda2)`
27.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)))))`
27.6%	1	`lambda2`
30.2%	2	`phi2`

Compiler

Compiled 24 to 30 computations (-25% saved)

regimes26.0ms (0.1%)

Memory

13.9MiB live, 60.3MiB allocated; 3ms collecting garbage

Counts

12 → 2

Calls

Call 1

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

Outputs

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

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

Calls

6 calls:

6.0ms	lambda2
4.0ms	phi2
4.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)))))
4.0ms	phi1
4.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
27.2%	1	`(-.f64 lambda1 lambda2)`
27.2%	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)))))`
27.2%	1	`lambda2`
27.2%	1	`lambda1`
27.2%	1	`phi1`
29.1%	2	`phi2`

Compiler

Compiled 26 to 38 computations (-46.2% saved)

regimes8.0ms (0%)

Memory

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

Counts

11 → 1

Calls

Call 1

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

Outputs

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

Calls

2 calls:

4.0ms	phi2
3.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
27.2%	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)))))`
27.2%	1	`phi2`

Compiler

Compiled 20 to 21 computations (-5% saved)

regimes23.0ms (0.1%)

Memory

-1.1MiB live, 50.0MiB allocated; 5ms collecting garbage

Counts

9 → 2

Calls

Call 1

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

Outputs

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

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

Calls

6 calls:

7.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)))))
3.0ms	(-.f64 lambda1 lambda2)
3.0ms	lambda2
3.0ms	phi2
3.0ms	phi1

Results

Accuracy	Segments	Branch
26.5%	1	`(-.f64 lambda1 lambda2)`
26.5%	1	`lambda2`
26.5%	1	`lambda1`
26.5%	1	`phi1`
28.6%	2	`phi2`
26.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)))))`

Compiler

Compiled 26 to 38 computations (-46.2% saved)

regimes14.0ms (0.1%)

Memory

-11.7MiB live, 34.5MiB allocated; 2ms collecting garbage

Counts

4 → 1

Calls

Call 1

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

Outputs

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

Calls

6 calls:

4.0ms	phi2
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	lambda1
2.0ms	phi1
2.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
26.3%	1	`lambda2`
26.3%	1	`lambda1`
26.3%	1	`phi1`
26.3%	1	`(-.f64 lambda1 lambda2)`
26.3%	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)))))`
26.3%	1	`phi2`

Compiler

Compiled 26 to 38 computations (-46.2% saved)

regimes12.0ms (0.1%)

Memory

-16.0MiB live, 30.8MiB allocated; 3ms collecting garbage

Accuracy

Total -13.1b remaining (-27.6%)

Threshold costs -13.1b (-27.6%)

Counts

3 → 1

Calls

Call 1

Inputs

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

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

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

Outputs

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

Calls

6 calls:

3.0ms	phi1
2.0ms	lambda1
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	phi2
1.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
25.6%	1	`lambda1`
25.6%	1	`(-.f64 lambda1 lambda2)`
25.6%	1	`phi1`
25.6%	1	`phi2`
25.6%	1	`lambda2`
25.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)))))`

Compiler

Compiled 26 to 38 computations (-46.2% saved)

bsearch184.0ms (1%)

Memory

-38.4MiB live, 419.0MiB allocated; 64ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
85.0ms	0.003969315699250797	1304822.9494527269
87.0ms	-1.2825928960908244	-0.0004531550995917781

Samples

144.0ms	192×	1	valid
12.0ms	80×	0	valid

Compiler

Compiled 1 200 to 993 computations (17.3% saved)

Precisions

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

ival-sin: 67.0ms (47.3% of total)

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

ival-mult!: 11.0ms (7.8% of total)

adjust: 10.0ms (7.1% of total)

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

ival-sub!: 3.0ms (2.1% of total)

bsearch5.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	0.003969315699250797	1304822.9494527269
2.0ms	-1.2825928960908244	-0.0004531550995917781

Compiler

Compiled 1 166 to 976 computations (16.3% saved)

bsearch56.0ms (0.3%)

Memory

10.0MiB live, 103.6MiB allocated; 17ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
12.0ms	0.003969315699250797	1304822.9494527269
41.0ms	-1.2825928960908244	-0.0004531550995917781

Samples

40.0ms	53×	1	valid
4.0ms	27×	0	valid

Compiler

Compiled 1 081 to 942 computations (12.9% saved)

Precisions

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

ival-cos: 11.0ms (36.8% of total)

ival-sin: 11.0ms (36.8% of total)

adjust: 3.0ms (10% of total)

ival-mult!: 3.0ms (10% of total)

ival-sub!: 1.0ms (3.3% of total)

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

bsearch73.0ms (0.4%)

Memory

-15.7MiB live, 122.3MiB allocated; 24ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
59.0ms	5.4239962361160994e-8	3.6399433353669534e-7
0.0ms	-31638715525.61589	-31035093421.768745

Samples

47.0ms	49×	1	valid
8.0ms	47×	0	valid

Compiler

Compiled 477 to 450 computations (5.7% saved)

Precisions

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

ival-cos: 22.0ms (43.4% of total)

ival-sin: 21.0ms (41.4% of total)

adjust: 3.0ms (5.9% of total)

ival-mult!: 3.0ms (5.9% of total)

ival-atan2: 2.0ms (3.9% of total)

ival-sub!: 1.0ms (2% of total)

bsearch196.0ms (1%)

Memory

41.4MiB live, 363.6MiB allocated; 56ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
69.0ms	1.8256691284599956e-16	2.071515556860907e-14
119.0ms	-898.095867435821	-6.329995797577664e-17

Samples

155.0ms	186×	1	valid
16.0ms	86×	0	valid

Compiler

Compiled 1 098 to 1 095 computations (0.3% saved)

Precisions

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

ival-sin: 78.0ms (48.4% of total)

ival-cos: 53.0ms (32.9% of total)

adjust: 10.0ms (6.2% of total)

ival-mult!: 9.0ms (5.6% of total)

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

ival-sub!: 3.0ms (1.9% of total)

bsearch79.0ms (0.4%)

Memory

20.5MiB live, 158.5MiB allocated; 22ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.8256691284599956e-16	2.071515556860907e-14
74.0ms	-898.095867435821	-6.329995797577664e-17

Samples

63.0ms	76×	1	valid
3.0ms	20×	0	valid

Compiler

Compiled 979 to 976 computations (0.3% saved)

Precisions

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

ival-cos: 30.0ms (48.5% of total)

ival-sin: 21.0ms (34% of total)

adjust: 4.0ms (6.5% of total)

ival-mult!: 4.0ms (6.5% of total)

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

ival-sub!: 1.0ms (1.6% of total)

bsearch116.0ms (0.6%)

Memory

3.7MiB live, 234.6MiB allocated; 28ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
43.0ms	1.8256691284599956e-16	2.071515556860907e-14
68.0ms	-2.8894750098618663e-31	-2.4285810615651974e-32

Samples

93.0ms	112×	1	valid
10.0ms	48×	0	valid

Compiler

Compiled 664 to 674 computations (-1.5% saved)

Precisions

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

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

ival-sin: 39.0ms (41.4% of total)

adjust: 6.0ms (6.4% of total)

ival-mult!: 5.0ms (5.3% of total)

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.8256691284599956e-16	2.071515556860907e-14
1.0ms	-2.8894750098618663e-31	-2.4285810615651974e-32

Compiler

Compiled 664 to 661 computations (0.5% saved)

bsearch158.0ms (0.8%)

Memory

-4.3MiB live, 229.1MiB allocated; 77ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.4239962361160994e-8	3.6399433353669534e-7
143.0ms	-31035093421.768745	-0.015492426881719104

Samples

107.0ms	75×	1	valid
26.0ms	85×	0	valid

Compiler

Compiled 853 to 860 computations (-0.8% saved)

Precisions

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

adjust: 53.0ms (41.8% of total)

ival-sin: 35.0ms (27.6% of total)

ival-cos: 30.0ms (23.7% of total)

ival-mult!: 5.0ms (3.9% of total)

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

ival-sub!: 1.0ms (0.8% of total)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.4239962361160994e-8	3.6399433353669534e-7
1.0ms	-31035093421.768745	-0.015492426881719104

Compiler

Compiled 853 to 860 computations (-0.8% saved)

bsearch895.0ms (4.7%)

Memory

-119.8MiB live, 296.2MiB allocated; 1.5s collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
771.0ms	0.003969315699250797	1304822.9494527269
93.0ms	-3.0403730080009394e-6	-2.4493494611686103e-10

Samples

732.0ms	64×	0	valid
120.0ms	128×	1	valid

Compiler

Compiled 1 277 to 1 256 computations (1.6% saved)

Precisions

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

ival-sub!: 693.0ms (82.2% of total)

ival-sin: 56.0ms (6.6% of total)

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

ival-mult!: 37.0ms (4.4% of total)

adjust: 15.0ms (1.8% of total)

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

bsearch5.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	1.8256691284599956e-16	2.071515556860907e-14
2.0ms	-2.8894750098618663e-31	-2.4285810615651974e-32

Compiler

Compiled 708 to 717 computations (-1.3% saved)

bsearch5.0ms (0%)

Memory

17.2MiB live, 17.3MiB allocated; 0ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	1.8256691284599956e-16	2.071515556860907e-14
2.0ms	-2.8894750098618663e-31	-2.4285810615651974e-32

Compiler

Compiled 729 to 752 computations (-3.2% saved)

bsearch134.0ms (0.7%)

Memory

12.3MiB live, 150.3MiB allocated; 49ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
127.0ms	4.0456772062982216e-8	0.003969315699250797
2.0ms	-3.0403730080009394e-6	-2.4493494611686103e-10

Samples

106.0ms	100×	1	valid
7.0ms	44×	0	valid

Compiler

Compiled 1 158 to 1 171 computations (-1.1% saved)

Precisions

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

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

ival-cos: 25.0ms (24.2% of total)

adjust: 6.0ms (5.8% of total)

ival-mult!: 5.0ms (4.8% of total)

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

ival-sub!: 2.0ms (1.9% of total)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.8256691284599956e-16	2.071515556860907e-14
1.0ms	-2.8894750098618663e-31	-2.4285810615651974e-32

Compiler

Compiled 762 to 738 computations (3.1% saved)

bsearch90.0ms (0.5%)

Memory

-9.0MiB live, 137.6MiB allocated; 25ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.8256691284599956e-16	2.071515556860907e-14
85.0ms	-6.329995797577664e-17	-7.095467690938424e-20

Samples

74.0ms	85×	1	valid
6.0ms	43×	0	valid

Compiler

Compiled 866 to 858 computations (0.9% saved)

Precisions

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

ival-cos: 32.0ms (42.7% of total)

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

adjust: 9.0ms (12% of total)

ival-mult!: 4.0ms (5.3% of total)

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

ival-sub!: 1.0ms (1.3% of total)

bsearch124.0ms (0.6%)

Memory

-4.2MiB live, 143.3MiB allocated; 62ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
57.0ms	0.003969315699250797	1304822.9494527269
63.0ms	-3.0403730080009394e-6	-2.4493494611686103e-10

Samples

106.0ms	100×	1	valid
6.0ms	44×	0	valid

Compiler

Compiled 1 013 to 1 027 computations (-1.4% saved)

Precisions

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

ival-sin: 61.0ms (57.1% of total)

ival-cos: 23.0ms (21.5% of total)

adjust: 10.0ms (9.4% of total)

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

ival-mult!: 5.0ms (4.7% of total)

ival-sub!: 1.0ms (0.9% of total)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.003969315699250797	1304822.9494527269
1.0ms	-3.0403730080009394e-6	-2.4493494611686103e-10

Compiler

Compiled 996 to 1 010 computations (-1.4% saved)

bsearch68.0ms (0.4%)

Memory

-35.7MiB live, 104.6MiB allocated; 21ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
61.0ms	0.003969315699250797	1304822.9494527269

Samples

47.0ms	74×	1	valid
9.0ms	22×	0	valid

Compiler

Compiled 513 to 501 computations (2.3% saved)

Precisions

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

ival-cos: 23.0ms (43.9% of total)

ival-sin: 16.0ms (30.5% of total)

adjust: 8.0ms (15.3% of total)

ival-mult!: 3.0ms (5.7% of total)

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

ival-sub!: 1.0ms (1.9% of total)

bsearch70.0ms (0.4%)

Memory

21.5MiB live, 121.4MiB allocated; 11ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
67.0ms	1304822.9494527269	135123192.50230294

Samples

54.0ms	68×	1	valid
8.0ms	44×	0	valid

Compiler

Compiled 440 to 430 computations (2.3% saved)

Precisions

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

ival-cos: 24.0ms (41.6% of total)

ival-sin: 20.0ms (34.7% of total)

adjust: 7.0ms (12.1% of total)

ival-mult!: 4.0ms (6.9% of total)

ival-atan2: 2.0ms (3.5% of total)

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

bsearch90.0ms (0.5%)

Memory

8.8MiB live, 153.7MiB allocated; 18ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
86.0ms	-810791.1711937782	-110.25630150176649

Samples

73.0ms	89×	1	valid
8.0ms	39×	0	valid

Compiler

Compiled 539 to 512 computations (5% saved)

Precisions

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

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

ival-cos: 29.0ms (40.5% of total)

adjust: 5.0ms (7% of total)

ival-mult!: 4.0ms (5.6% of total)

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

ival-sub!: 1.0ms (1.4% of total)

bsearch77.0ms (0.4%)

Memory

-11.1MiB live, 127.4MiB allocated; 16ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
74.0ms	0.003969315699250797	1304822.9494527269

Samples

58.0ms	74×	1	valid
7.0ms	38×	0	valid

Compiler

Compiled 648 to 600 computations (7.4% saved)

Precisions

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

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

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

adjust: 4.0ms (6.6% of total)

ival-mult!: 4.0ms (6.6% of total)

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

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

bsearch101.0ms (0.5%)

Memory

19.9MiB live, 165.9MiB allocated; 13ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
96.0ms	4.080299746499765e-83	2.9734612711025952e-55

Samples

76.0ms	121×	1	valid
7.0ms	55×	0	valid

Compiler

Compiled 852 to 794 computations (6.8% saved)

Precisions

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

ival-sin: 31.0ms (40.5% of total)

ival-cos: 25.0ms (32.7% of total)

ival-mult!: 10.0ms (13.1% of total)

adjust: 6.0ms (7.8% of total)

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

ival-sub!: 2.0ms (2.6% of total)

derivations1.1s (6%)

Memory

0.8MiB live, 1 140.6MiB allocated; 149ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 606 to 327 computations (46% saved)

preprocess609.0ms (3.2%)

Memory: 99.1MiB live, 795.5MiB allocated; 340ms collecting garbage
Compiler: Compiled 625 to 344 computations (45% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze825.0ms (4.3%)

sample8.2s (42.8%)

preprocess55.0ms (0.3%)

series36.0ms (0.2%)

rewrite236.0ms (1.2%)

eval33.0ms (0.2%)

prune51.0ms (0.3%)

series70.0ms (0.4%)

rewrite214.0ms (1.1%)

eval95.0ms (0.5%)

prune172.0ms (0.9%)

series121.0ms (0.6%)

rewrite283.0ms (1.5%)

eval139.0ms (0.7%)

prune268.0ms (1.4%)

series99.0ms (0.5%)

rewrite260.0ms (1.4%)

eval94.0ms (0.5%)

prune287.0ms (1.5%)

regimes541.0ms (2.8%)

regimes325.0ms (1.7%)

regimes340.0ms (1.8%)

regimes61.0ms (0.3%)

regimes60.0ms (0.3%)

regimes164.0ms (0.9%)

regimes342.0ms (1.8%)

regimes152.0ms (0.8%)

regimes51.0ms (0.3%)

regimes46.0ms (0.2%)

regimes35.0ms (0.2%)

regimes203.0ms (1.1%)

regimes41.0ms (0.2%)

regimes234.0ms (1.2%)

regimes83.0ms (0.4%)

regimes35.0ms (0.2%)

regimes145.0ms (0.8%)

regimes50.0ms (0.3%)

regimes101.0ms (0.5%)

regimes86.0ms (0.5%)

regimes24.0ms (0.1%)

regimes47.0ms (0.2%)

regimes37.0ms (0.2%)

regimes15.0ms (0.1%)

regimes21.0ms (0.1%)

regimes26.0ms (0.1%)

regimes8.0ms (0%)

regimes23.0ms (0.1%)

regimes14.0ms (0.1%)

regimes12.0ms (0.1%)

bsearch184.0ms (1%)

bsearch5.0ms (0%)

bsearch56.0ms (0.3%)

bsearch73.0ms (0.4%)

bsearch196.0ms (1%)

bsearch79.0ms (0.4%)

bsearch116.0ms (0.6%)

bsearch3.0ms (0%)

bsearch158.0ms (0.8%)

bsearch3.0ms (0%)

bsearch895.0ms (4.7%)

bsearch5.0ms (0%)

bsearch5.0ms (0%)

bsearch134.0ms (0.7%)

bsearch3.0ms (0%)

bsearch90.0ms (0.5%)

bsearch124.0ms (0.6%)

bsearch3.0ms (0%)

bsearch68.0ms (0.4%)

bsearch70.0ms (0.4%)

bsearch90.0ms (0.5%)

bsearch77.0ms (0.4%)

bsearch101.0ms (0.5%)

derivations1.1s (6%)

preprocess609.0ms (3.2%)

end0.0ms (0%)

Profiling