Metrics for Midpoint on a great circle

start0.0ms (0%)

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

analyze710.0ms (4.9%)

Memory

48.4MiB live, 634.5MiB allocated; 139ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.8%	0.2%	0%	0%	0%	0
0%	0%	99.8%	0.2%	0%	0%	0%	1
0%	0%	99.8%	0.2%	0%	0%	0%	2
0%	0%	99.8%	0.2%	0%	0%	0%	3
0%	0%	99.8%	0.2%	0%	0%	0%	4
0%	0%	99.8%	0.2%	0%	0%	0%	5
0%	0%	99.8%	0.2%	0%	0%	0%	6
0%	0%	99.8%	0.2%	0%	0%	0%	7
0%	0%	99.8%	0.2%	0%	0%	0%	8
9.4%	9.4%	90.4%	0.2%	0%	0%	0%	9
9.4%	9.4%	90.4%	0.2%	0%	0%	0%	10
10.9%	10.9%	88.9%	0.2%	0%	0%	0%	11
10.9%	10.9%	88.9%	0.2%	0%	0%	0%	12

Compiler

Compiled 22 to 16 computations (27.3% saved)

sample4.8s (33.1%)

Memory

47.8MiB live, 2 517.5MiB allocated; 732ms collecting garbage

Samples

3.5s	4 466×	1	valid
553.0ms	3 784×	0	valid
4.0ms	6×	2	valid

Precisions

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

ival-cos: 2.4s (64.7% of total)

ival-sin: 539.0ms (14.4% of total)

adjust: 271.0ms (7.3% of total)

ival-atan2: 251.0ms (6.7% of total)

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

ival-add!: 68.0ms (1.8% of total)

ival-sub!: 44.0ms (1.2% of total)

Bogosity

preprocess66.0ms (0.5%)

Memory

-43.2MiB live, 10.4MiB allocated; 24ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	95	314
1	337	313
2	2978	313

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Symmetry

(abs phi1)

(abs phi2)

Compiler

Compiled 32 to 28 computations (12.5% saved)

series24.0ms (0.2%)

Memory

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

Counts

14 → 102

Calls

Call 1

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

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

Calls

12 calls:

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

rewrite948.0ms (6.6%)

Memory

7.4MiB live, 334.8MiB allocated; 44ms collecting garbage

Counts

116 → 139

Calls

Call 1

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

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

eval26.0ms (0.2%)

Memory: 25.9MiB live, 25.9MiB allocated; 0ms collecting garbage
Compiler: Compiled 1 994 to 767 computations (61.5% saved)

prune34.0ms (0.2%)

Memory

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

Pruning

29 alts after pruning (29 fresh and 0 done)

	Pruned	Kept	Total
New	99	29	128
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	100	29	129

Accuracy

98.8%

Counts

129 → 29

Alt Table

Click to see full alt table

Status	Accuracy	Program
	71.5%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))
	54.4%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))))
▶	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	32.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (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)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.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)))))))))
	52.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))))
	95.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	98.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	77.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	77.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
	81.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (cos.f64 lambda1) (cos.f64 phi1)))))
	97.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
▶	86.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))))
	85.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))))
	65.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	98.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 (sin.f64 (neg.f64 lambda2)) lambda1) #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1 (sin.f64 (neg.f64 lambda2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1/2 binary64) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (sin.f64 (neg.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	74.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	74.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 (neg.f64 lambda2)) (cos.f64 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	40.0%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
	98.5%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1)) lambda1))
▶	54.1%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 1 512 to 1 168 computations (22.8% saved)

series69.0ms (0.5%)

Memory

-21.2MiB live, 71.7MiB allocated; 5ms collecting garbage

Counts

50 → 221

Calls

Call 1

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

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

Calls

12 calls:

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

rewrite1.6s (11.4%)

Memory

19.7MiB live, 402.3MiB allocated; 116ms collecting garbage

Counts

271 → 359

Calls

Call 1

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

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

eval111.0ms (0.8%)

Memory: 9.8MiB live, 54.8MiB allocated; 5ms collecting garbage
Compiler: Compiled 6 858 to 2 553 computations (62.8% saved)

prune59.0ms (0.4%)

Memory

-18.8MiB live, 33.4MiB allocated; 8ms collecting garbage

Pruning

41 alts after pruning (40 fresh and 1 done)

	Pruned	Kept	Total
New	437	25	462
Fresh	9	15	24
Picked	4	1	5
Done	0	0	0
Total	450	41	491

Accuracy

99.6%

Counts

491 → 41

Alt Table

Click to see full alt table

Status	Accuracy	Program
	71.5%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))
	54.4%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))))
	90.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (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))))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	99.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	98.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) lambda1)) (sin.f64 (neg.f64 lambda2))) lambda1 (cos.f64 lambda2)))))))
	98.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (sin.f64 (neg.f64 lambda2)) (cos.f64 lambda2)))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (sin.f64 (neg.f64 lambda2)) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) lambda1 (neg.f64 (.f64 (sin.f64 (neg.f64 lambda2)) (cos.f64 phi2)))) lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	52.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))))
	37.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))))
	95.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	98.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	77.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	69.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	67.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
	97.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	70.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (/.f64 (-.f64 (.f64 (/.f64 lambda1 lambda2) (/.f64 lambda1 lambda2)) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (/.f64 (-.f64 (.f64 (/.f64 lambda1 lambda2) (/.f64 lambda1 lambda2)) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))) lambda2)))))))
▶	85.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))))
	53.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))))))
	82.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)) lambda2)))))))
	65.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( lambda2 (- (/ lambda1 lambda2) 1)) lambda1)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( lambda2 (- (/ lambda1 lambda2) 1)) lambda1)))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 (sin.f64 (neg.f64 lambda2)) lambda1) #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1 (sin.f64 (neg.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (sin.f64 (neg.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ (neg (cos lambda1)) ( lambda2 (* -1/2 (sin lambda1)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (/.f64 (neg.f64 (cos.f64 lambda1)) lambda2)) lambda2)) lambda2 (sin.f64 lambda1)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (-.f64 (.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( lambda2 (+ (neg (cos lambda1)) (* lambda2 (* -1/2 (sin lambda1)))))) (fma.f64 lambda1 (fma.f64 (.f64 lambda2 lambda2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	68.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( lambda2 (+ (neg (cos lambda1)) (* lambda2 (* -1/2 (sin lambda1)))))) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	75.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	74.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	65.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 (neg.f64 lambda2)) (cos.f64 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	40.0%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
	98.5%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	54.1%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 2 345 to 1 841 computations (21.5% saved)

series82.0ms (0.6%)

Memory

3.3MiB live, 49.3MiB allocated; 4ms collecting garbage

Counts

70 → 296

Calls

Call 1

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

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

Calls

12 calls:

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

rewrite2.0s (13.6%)

Memory

26.6MiB live, 968.7MiB allocated; 103ms collecting garbage

Counts

366 → 510

Calls

Call 1

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

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

eval72.0ms (0.5%)

Memory: 13.7MiB live, 103.5MiB allocated; 7ms collecting garbage
Compiler: Compiled 8 009 to 3 392 computations (57.6% saved)

prune73.0ms (0.5%)

Memory

4.0MiB live, 111.9MiB allocated; 20ms collecting garbage

Pruning

54 alts after pruning (53 fresh and 1 done)

	Pruned	Kept	Total
New	460	26	486
Fresh	8	27	35
Picked	5	0	5
Done	0	1	1
Total	473	54	527

Accuracy

99.6%

Counts

527 → 54

Alt Table

Click to see full alt table

Status	Accuracy	Program
	71.5%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))
	54.4%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))))
	90.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (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))))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	99.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))))
	98.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2)) #s(literal -1/6 binary64) (.f64 (.f64 (cos.f64 lambda2) #s(literal -1/2 binary64)) (cos.f64 phi2))) lambda1 (.f64 (sin.f64 lambda2) (cos.f64 phi2))) lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) (fma.f64 (.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) (fma.f64 (.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	98.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	98.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	37.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))))
	95.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	98.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	77.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	69.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	67.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
	97.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	70.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (/.f64 (-.f64 (.f64 (/.f64 lambda1 lambda2) (/.f64 lambda1 lambda2)) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (/.f64 (-.f64 (.f64 (/.f64 lambda1 lambda2) (/.f64 lambda1 lambda2)) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))) lambda2)))))))
	70.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (/.f64 (-.f64 (.f64 (/.f64 lambda2 lambda1) (/.f64 lambda2 lambda1)) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (/.f64 (-.f64 (.f64 (/.f64 lambda2 lambda1) (/.f64 lambda2 lambda1)) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))))))
	83.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) #s(approx (- (/ lambda2 lambda1) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) lambda2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) #s(approx (- (/ lambda2 lambda1) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) lambda2)))))))))
▶	53.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))))))
	82.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)) lambda2)))))))
	65.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( (neg lambda1) (- (/ lambda2 lambda1) 1)) lambda1)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( (neg lambda1) (- (/ lambda2 lambda1) 1)) lambda1)))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 (sin.f64 (neg.f64 lambda2)) lambda1) #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1 (sin.f64 (neg.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (sin.f64 (neg.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ (neg (cos lambda1)) ( lambda2 (* -1/2 (sin lambda1)))) (.f64 #s(approx (+ (/ (neg (cos lambda1)) lambda2) ( -1/2 (sin lambda1))) (/.f64 #s(literal -1 binary64) lambda2)) lambda2)) lambda2 (sin.f64 lambda1)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (-.f64 (.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	97.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (-.f64 (.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( lambda2 (+ (neg (cos lambda1)) (* (* -1/2 lambda2) (sin lambda1))))) (fma.f64 lambda1 (fma.f64 (.f64 lambda2 lambda2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	68.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( lambda2 (+ (neg (cos lambda1)) (* (* -1/2 lambda2) (sin lambda1))))) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	36.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))))
▶	71.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	58.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	74.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	74.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	67.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))))
	36.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (-.f64 (+.f64 (pow.f64 phi2 (neg.f64 #s(literal 4 binary64))) #s(literal 1/24 binary64)) (/.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)) (.f64 phi2 phi2))) (pow.f64 phi2 #s(literal 4 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (-.f64 (+.f64 (pow.f64 phi2 (neg.f64 #s(literal 4 binary64))) #s(literal 1/24 binary64)) (/.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)) (*.f64 phi2 phi2))) (pow.f64 phi2 #s(literal 4 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	30.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))))
	65.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))))))))
▶	64.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	63.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	58.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	65.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (sin.f64 (neg.f64 lambda2)) (cos.f64 lambda2)) lambda1 (sin.f64 (neg.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	79.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 (neg.f64 lambda2)) (cos.f64 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	40.0%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
	98.5%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	54.1%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 3 341 to 2 543 computations (23.9% saved)

series144.0ms (1%)

Memory

-8.0MiB live, 180.7MiB allocated; 17ms collecting garbage

Counts

76 → 350

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (- (* (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) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (cos phi2))) (* lambda1 (- (/ (* (cos phi2) (pow (sin lambda2) 3)) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (cos phi2))) (* lambda1 (- (/ (* (cos phi2) (pow (sin lambda2) 3)) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (cos lambda2)))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (+ (* -3/2 (cos lambda2)) (* lambda1 (- (/ (pow (sin lambda2) 3) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (cos lambda2))) (+ (* -1 (/ (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))) (cos lambda2))) (/ (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))))) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* 7/8 (* (pow lambda1 2) (pow (cos lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* (pow lambda1 2) (+ (* -61/240 (* (pow lambda1 2) (pow (cos lambda2) 3))) (* 7/8 (pow (cos lambda2) 3)))))) (pow (cos lambda2) 3))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* -1 (* lambda1 (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda1 (- (* lambda1 (pow (sin lambda2) 2)) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* lambda1 (- (* -1/3 (* lambda1 (pow (sin lambda2) 2))) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (+ (cos phi2) (* 1/2 (* lambda1 (* lambda2 (cos phi2)))))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (+ (cos phi2) (* lambda1 (+ (* -1/6 (* lambda1 (cos phi2))) (* 1/2 (* lambda2 (cos phi2))))))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2))))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (* lambda1 (+ (cos phi2) (* -1/6 (* (pow lambda1 2) (cos phi2)))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (* lambda1 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow lambda1 2) (cos phi2)))))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (* lambda1 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/6 (cos phi2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))) lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #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) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (cos lambda2) 3))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (- (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 lambda1))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (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)))
#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))
#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))
#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) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (cos phi2))) (* lambda2 (- (/ (* (cos phi2) (pow (sin lambda1) 3)) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (cos phi2))) (* lambda2 (- (/ (* (cos phi2) (pow (sin lambda1) 3)) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (cos lambda1)))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (+ (* -3/2 (cos lambda1)) (* lambda2 (- (/ (pow (sin lambda1) 3) (pow (cos lambda1) 2)) (+ (* -1 (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (cos lambda1))) (/ (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))))) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* 7/8 (* (pow lambda2 2) (pow (cos lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* (pow lambda2 2) (+ (* -61/240 (* (pow lambda2 2) (pow (cos lambda1) 3))) (* 7/8 (pow (cos lambda1) 3)))))) (pow (cos lambda1) 3))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* -1 (* lambda2 (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda2 (- (* lambda2 (pow (sin lambda1) 2)) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* lambda2 (- (* -1/3 (* lambda2 (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (* (cos phi2) (sin lambda1)) lambda2)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* (cos phi2) (sin lambda1)) lambda2)) (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ 1 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ 1 (+ (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ 1 (+ (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#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 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #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 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #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 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #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))
#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) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (sin lambda1) (+ (* -1 (* lambda2 (cos lambda1))) (* (pow phi2 2) (+ (* -1/2 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (sin lambda1) (+ (* -1 (* lambda2 (cos lambda1))) (* (pow phi2 2) (+ (* -1/2 (sin lambda1)) (+ (* 1/2 (* lambda2 (cos lambda1))) (* (pow phi2 2) (+ (* -1/24 (* lambda2 (cos lambda1))) (* 1/24 (sin lambda1)))))))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (sin lambda1) (+ (* -1 (* lambda2 (cos lambda1))) (* (pow phi2 2) (+ (* -1/2 (sin lambda1)) (+ (* 1/2 (* lambda2 (cos lambda1))) (* (pow phi2 2) (+ (* -1/24 (* lambda2 (cos lambda1))) (+ (* 1/24 (sin lambda1)) (* (pow phi2 2) (+ (* -1/720 (sin lambda1)) (* 1/720 (* lambda2 (cos lambda1)))))))))))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow phi2 2) (cos lambda1))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1))))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (sin lambda1)))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (+ (sin lambda1) (* -1/2 (* (pow phi2 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1/2 (sin lambda1)) (* 1/24 (* (pow phi2 2) (sin lambda1))))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1/2 (sin lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin lambda1))) (* 1/24 (sin lambda1)))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))

Calls

12 calls:

Time	Variable		Point	Expression
22.0ms	lambda2	@	0	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (cos phi1) phi1 (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (pow (* (cos lambda2) (cos lambda1)) 3) (* (cos lambda2) (cos lambda1)) 3 (pow (* (sin lambda2) (sin lambda1)) 3) (* (sin lambda2) (sin lambda1)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) 1 (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* -1/2 (* phi1 phi1)) 1) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) (neg lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (* (cos phi2) (cos lambda1)) (* (sin lambda1) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))))
13.0ms	lambda1	@	inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (cos phi1) phi1 (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (pow (* (cos lambda2) (cos lambda1)) 3) (* (cos lambda2) (cos lambda1)) 3 (pow (* (sin lambda2) (sin lambda1)) 3) (* (sin lambda2) (sin lambda1)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) 1 (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* -1/2 (* phi1 phi1)) 1) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) (neg lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (* (cos phi2) (cos lambda1)) (* (sin lambda1) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))))
12.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (cos phi1) phi1 (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (pow (* (cos lambda2) (cos lambda1)) 3) (* (cos lambda2) (cos lambda1)) 3 (pow (* (sin lambda2) (sin lambda1)) 3) (* (sin lambda2) (sin lambda1)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) 1 (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* -1/2 (* phi1 phi1)) 1) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) (neg lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (* (cos phi2) (cos lambda1)) (* (sin lambda1) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))))
12.0ms	lambda1	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (cos phi1) phi1 (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (pow (* (cos lambda2) (cos lambda1)) 3) (* (cos lambda2) (cos lambda1)) 3 (pow (* (sin lambda2) (sin lambda1)) 3) (* (sin lambda2) (sin lambda1)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) 1 (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* -1/2 (* phi1 phi1)) 1) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) (neg lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (* (cos phi2) (cos lambda1)) (* (sin lambda1) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))))
12.0ms	phi2	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (cos phi1) phi1 (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (pow (* (cos lambda2) (cos lambda1)) 3) (* (cos lambda2) (cos lambda1)) 3 (pow (* (sin lambda2) (sin lambda1)) 3) (* (sin lambda2) (sin lambda1)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) 1 (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* -1/2 (* phi1 phi1)) 1) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) (neg lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (* (cos phi2) (cos lambda1)) (* (sin lambda1) (cos phi2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))))

rewrite1.7s (11.8%)

Memory

29.8MiB live, 1 648.8MiB allocated; 298ms collecting garbage

Counts

426 → 429

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))))
lambda1
(atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))))
(.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
(cos.f64 phi2)
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)
(cos.f64 lambda2)
lambda2
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(cos.f64 lambda1)
(sin.f64 lambda2)
(+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))
(cos.f64 phi1)
phi1
(.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))
(pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
#s(literal 3 binary64)
(pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))
(-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (cos phi2) #s(literal 1 binary64))
#s(literal 1 binary64)
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
(+.f64 #s(approx (cos phi1) #s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos phi1) #s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64)))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))
(*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
(*.f64 phi2 phi2)
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
(neg.f64 lambda2)
(+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))
(.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))
(cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))))))
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2))))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2))))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2))
(*.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))
(/.f64 lambda1 lambda2)
(+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))))
(.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2))))
(cos.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))))
(fma.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)))
(*.f64 (cos.f64 phi2) (cos.f64 lambda1))
(*.f64 (sin.f64 lambda1) (cos.f64 phi2))
(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (- (* (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) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (cos phi2))) (* lambda1 (- (/ (* (cos phi2) (pow (sin lambda2) 3)) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (cos phi2))) (* lambda1 (- (/ (* (cos phi2) (pow (sin lambda2) 3)) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (cos lambda2)))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (+ (* -3/2 (cos lambda2)) (* lambda1 (- (/ (pow (sin lambda2) 3) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (cos lambda2))) (+ (* -1 (/ (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))) (cos lambda2))) (/ (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))))) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* 7/8 (* (pow lambda1 2) (pow (cos lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* (pow lambda1 2) (+ (* -61/240 (* (pow lambda1 2) (pow (cos lambda2) 3))) (* 7/8 (pow (cos lambda2) 3)))))) (pow (cos lambda2) 3))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* -1 (* lambda1 (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda1 (- (* lambda1 (pow (sin lambda2) 2)) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* lambda1 (- (* -1/3 (* lambda1 (pow (sin lambda2) 2))) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (+ (cos phi2) (* 1/2 (* lambda1 (* lambda2 (cos phi2)))))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (+ (cos phi2) (* lambda1 (+ (* -1/6 (* lambda1 (cos phi2))) (* 1/2 (* lambda2 (cos phi2))))))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2))))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (* lambda1 (+ (cos phi2) (* -1/6 (* (pow lambda1 2) (cos phi2)))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (* lambda1 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow lambda1 2) (cos phi2)))))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (* lambda1 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/6 (cos phi2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))) lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #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) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (cos lambda2) 3))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (- (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 lambda1))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (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)))
#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))
#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))
#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) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (cos phi2))) (* lambda2 (- (/ (* (cos phi2) (pow (sin lambda1) 3)) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (cos phi2))) (* lambda2 (- (/ (* (cos phi2) (pow (sin lambda1) 3)) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi2) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (cos lambda1)))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (+ (* -3/2 (cos lambda1)) (* lambda2 (- (/ (pow (sin lambda1) 3) (pow (cos lambda1) 2)) (+ (* -1 (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (cos lambda1))) (/ (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))))) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* 7/8 (* (pow lambda2 2) (pow (cos lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* (pow lambda2 2) (+ (* -61/240 (* (pow lambda2 2) (pow (cos lambda1) 3))) (* 7/8 (pow (cos lambda1) 3)))))) (pow (cos lambda1) 3))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda2) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* -1 (* lambda2 (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda2 (- (* lambda2 (pow (sin lambda1) 2)) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* lambda2 (- (* -1/3 (* lambda2 (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (* (cos phi2) (sin lambda1)) lambda2)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* (cos phi2) (sin lambda1)) lambda2)) (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ 1 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ 1 (+ (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ 1 (+ (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#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 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #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 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #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 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #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))
#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) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) #s(hole binary64 (+ (cos phi1) (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (sin lambda1) (+ (* -1 (* lambda2 (cos lambda1))) (* (pow phi2 2) (+ (* -1/2 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (sin lambda1) (+ (* -1 (* lambda2 (cos lambda1))) (* (pow phi2 2) (+ (* -1/2 (sin lambda1)) (+ (* 1/2 (* lambda2 (cos lambda1))) (* (pow phi2 2) (+ (* -1/24 (* lambda2 (cos lambda1))) (* 1/24 (sin lambda1)))))))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) #s(hole binary64 (+ (sin lambda1) (+ (* -1 (* lambda2 (cos lambda1))) (* (pow phi2 2) (+ (* -1/2 (sin lambda1)) (+ (* 1/2 (* lambda2 (cos lambda1))) (* (pow phi2 2) (+ (* -1/24 (* lambda2 (cos lambda1))) (+ (* 1/24 (sin lambda1)) (* (pow phi2 2) (+ (* -1/720 (sin lambda1)) (* 1/720 (* lambda2 (cos lambda1)))))))))))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow phi2 2) (cos lambda1))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1))))))))
#s(approx (* (cos phi2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (sin lambda1)))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (+ (sin lambda1) (* -1/2 (* (pow phi2 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1/2 (sin lambda1)) (* 1/24 (* (pow phi2 2) (sin lambda1))))))))
#s(approx (* (sin lambda1) (cos phi2)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1/2 (sin lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin lambda1))) (* 1/24 (sin lambda1)))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))))
lambda1
(atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))))
(.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
(cos.f64 phi2)
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)
(cos.f64 lambda2)
lambda2
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(cos.f64 lambda1)
(sin.f64 lambda2)
(+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))
(cos.f64 phi1)
phi1
(.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))
(pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
#s(literal 3 binary64)
(pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))
(-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (cos phi2) #s(literal 1 binary64))
#s(literal 1 binary64)
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
(+.f64 #s(approx (cos phi1) #s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos phi1) #s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64)))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))
(*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
(*.f64 phi2 phi2)
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
(neg.f64 lambda2)
(+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))
(.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))
(cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))))))
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2))))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2))))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2))
(*.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))
(/.f64 lambda1 lambda2)
(+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))))
(.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2))))
(cos.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))))
(+.f64 (.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))
(fma.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)))
(*.f64 (cos.f64 phi2) (cos.f64 lambda1))
(*.f64 (sin.f64 lambda1) (cos.f64 phi2))
(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx lambda1 lambda1)
#s(approx (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (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 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (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)) (* (cos lambda1) (sin lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.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 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (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) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #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 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)))))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)))))))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (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) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 lambda1 (-.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 lambda1 (-.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (cos.f64 lambda2))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (-.f64 (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))) (cos.f64 lambda2)) (/.f64 (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 lambda1 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda1 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (*.f64 #s(literal 7/8 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (* (cos lambda2) (cos lambda1)) (cos.f64 lambda2))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda2)))))))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal 1/12 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))))))))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(literal -1 binary64))
#s(approx (- (/ lambda1 lambda2) 1) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (/ lambda1 lambda2) (/.f64 lambda1 lambda2))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (+.f64 (cos.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (*.f64 lambda2 (cos.f64 phi2))))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (+.f64 (cos.f64 phi2) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 phi2)))))))))
#s(approx (* (cos phi2) (cos lambda1)) (cos.f64 phi2))
#s(approx (* (cos phi2) (cos lambda1)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (cos lambda1)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos phi2) (cos lambda1)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (* (sin lambda1) (cos phi2)) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (* (sin lambda1) (cos phi2)) (.f64 lambda1 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (sin lambda1) (cos phi2)) (.f64 lambda1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(approx (* (sin lambda1) (cos phi2)) (.f64 lambda1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi2)))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) lambda1))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (* (cos lambda2) (cos lambda1)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (-.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (- lambda1 lambda2) lambda1)
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) lambda1)
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (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 (* (cos phi2) (cos lambda1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (sin lambda1) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 (+.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) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (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 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (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)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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) (cos lambda2)) (* (cos lambda1) (sin 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)) (sin.f64 lambda1))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)))))))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda1))))))))
#s(approx (cos lambda2) #s(literal 1 binary64))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx lambda2 lambda2)
#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 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)) (*.f64 #s(literal 1/120 binary64) (cos.f64 lambda1)))))))))
#s(approx (sin lambda2) lambda2)
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (cos.f64 lambda1))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda1)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (cos.f64 lambda1) (.f64 lambda2 (-.f64 (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda1)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (cos.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 lambda2 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda2 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda2) (cos lambda1)) 3) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (*.f64 #s(literal 7/8 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (* (cos lambda2) (cos lambda1)) (cos.f64 lambda1))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda1))))))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) (*.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda2) (sin lambda1)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda1)))))))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))))))))))
#s(approx (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/144 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/240 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/720 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/5040 binary64) (sin.f64 lambda1))))))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (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 (* (cos phi2) (sin (- lambda1 lambda2))) (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)) (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 (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#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 (.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 (-.f64 (.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 (neg lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda1)) lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.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) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx phi1 phi1)
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (+ (* -1/2 (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.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 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (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 (pow.f64 phi2 #s(literal 2 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) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 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 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (cos phi2) #s(literal 1 binary64))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx phi2 phi2)
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))))) (+.f64 (cos.f64 phi1) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* (cos phi2) (/ (+ (pow (* (cos lambda2) (cos lambda1)) 3) (pow (* (sin lambda2) (sin lambda1)) 3)) (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (* phi2 phi2) 1/24) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* phi2 phi2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (+.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (+.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda2 (cos.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda1))))))))))
#s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (+.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda2 (cos.f64 lambda1)) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/720 binary64) (.f64 lambda2 (cos.f64 lambda1))))))))))))))
#s(approx (* (cos phi2) (cos lambda1)) (cos.f64 lambda1))
#s(approx (* (cos phi2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos phi2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)))))))
#s(approx (* (cos phi2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda1))))))))
#s(approx (* (sin lambda1) (cos phi2)) (sin.f64 lambda1))
#s(approx (* (sin lambda1) (cos phi2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (cos phi2)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda1)))))))
#s(approx (* (sin lambda1) (cos phi2)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda1))))))))
#s(approx (cos phi2) (cos.f64 phi2))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))

eval75.0ms (0.5%)

Memory: -20.5MiB live, 77.7MiB allocated; 10ms collecting garbage
Compiler: Compiled 12 345 to 3 491 computations (71.7% saved)

prune82.0ms (0.6%)

Memory

-13.6MiB live, 80.2MiB allocated; 4ms collecting garbage

Pruning

67 alts after pruning (65 fresh and 2 done)

	Pruned	Kept	Total
New	394	22	416
Fresh	5	43	48
Picked	4	1	5
Done	0	1	1
Total	403	67	470

Accuracy

99.6%

Counts

470 → 67

Alt Table

Click to see full alt table

Status	Accuracy	Program
	71.5%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))
	54.4%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))))
	90.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (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))))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) #s(approx (+ (* (* (cos lambda2) (cos lambda1)) (* (cos lambda2) (cos lambda1))) (- (* (* (sin lambda2) (sin lambda1)) (* (sin lambda2) (sin lambda1))) (* (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))))))
	98.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2)) #s(literal -1/6 binary64) (.f64 (.f64 (cos.f64 lambda2) #s(literal -1/2 binary64)) (cos.f64 phi2))) lambda1 (.f64 (sin.f64 lambda2) (cos.f64 phi2))) lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) (fma.f64 (.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) (fma.f64 (.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	98.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	98.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	37.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))))
	95.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	98.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	77.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	67.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
	97.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	70.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (/.f64 (-.f64 (.f64 (/.f64 lambda1 lambda2) (/.f64 lambda1 lambda2)) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (/.f64 (-.f64 (.f64 (/.f64 lambda1 lambda2) (/.f64 lambda1 lambda2)) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))) lambda2)))))))
	70.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (/.f64 (-.f64 (.f64 (/.f64 lambda2 lambda1) (/.f64 lambda2 lambda1)) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (/.f64 (-.f64 (.f64 (/.f64 lambda2 lambda1) (/.f64 lambda2 lambda1)) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))))))
	83.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) #s(approx (- (/ lambda2 lambda1) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) lambda2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) #s(approx (- (/ lambda2 lambda1) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) lambda2)))))))))
✓	53.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)) lambda2)))))))
	82.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)) lambda2)))))))
	65.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( (- (/ lambda1 lambda2) 1) lambda2) lambda1)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( (- (/ lambda1 lambda2) 1) lambda2) lambda1)))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 (sin.f64 (neg.f64 lambda2)) lambda1) #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1 (sin.f64 (neg.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (sin.f64 (neg.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ (neg (cos lambda1)) ( lambda2 (* -1/2 (sin lambda1)))) (.f64 #s(approx (+ (/ (neg (cos lambda1)) lambda2) ( -1/2 (sin lambda1))) (/.f64 #s(literal -1 binary64) lambda2)) lambda2)) lambda2 (sin.f64 lambda1)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (-.f64 (.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	97.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (-.f64 (.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( lambda2 (+ (neg (cos lambda1)) (* (* -1/2 lambda2) (sin lambda1))))) (fma.f64 lambda1 (fma.f64 (.f64 lambda2 lambda2) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	68.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( lambda2 (+ (neg (cos lambda1)) (* (* -1/2 lambda2) (sin lambda1))))) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	36.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))))
	62.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	58.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	74.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	74.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	67.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))))
	70.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 #s(approx (- ( (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 #s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	36.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (-.f64 (+.f64 (pow.f64 phi2 (neg.f64 #s(literal 4 binary64))) #s(literal 1/24 binary64)) (/.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)) (.f64 phi2 phi2))) (pow.f64 phi2 #s(literal 4 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (-.f64 (+.f64 (pow.f64 phi2 (neg.f64 #s(literal 4 binary64))) #s(literal 1/24 binary64)) (/.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)) (*.f64 phi2 phi2))) (pow.f64 phi2 #s(literal 4 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	76.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	30.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))))
	61.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	64.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))
	60.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
	64.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
	76.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	52.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) #s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
	59.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))))))
	63.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	58.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	55.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	64.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))) (+.f64 #s(approx (cos phi1) #s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	60.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	63.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	55.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 (neg.f64 lambda2)) (cos.f64 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	62.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2)))))) (+.f64 #s(approx (cos phi1) #s(approx (+ (* -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	64.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	55.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( -1/2 (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (+ (* (neg lambda2) (* (cos phi2) (cos lambda1))) (* (sin lambda1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	40.0%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
	98.5%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	54.1%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 3 803 to 2 432 computations (36.1% saved)

regimes186.0ms (1.3%)

Memory

1.0MiB live, 142.5MiB allocated; 10ms collecting garbage

Counts

103 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes186.0ms (1.3%)

Memory

-4.9MiB live, 141.5MiB allocated; 16ms collecting garbage

Counts

102 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

31.0ms	lambda1
25.0ms	phi1
25.0ms	phi2
25.0ms	lambda2
25.0ms	(cos.f64 phi2)

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes160.0ms (1.1%)

Memory

34.0MiB live, 126.5MiB allocated; 5ms collecting garbage

Counts

93 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

24.0ms	phi1
23.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
22.0ms	lambda2
22.0ms	phi2
22.0ms	lambda1

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes160.0ms (1.1%)

Memory

3.7MiB live, 137.1MiB allocated; 14ms collecting garbage

Counts

84 → 1

Calls

Call 1

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

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

Outputs

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

Calls

7 calls:

26.0ms	(cos.f64 phi1)
23.0ms	lambda1
23.0ms	phi2
23.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
21.0ms	lambda2

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes155.0ms (1.1%)

Memory

12.5MiB live, 167.5MiB allocated; 27ms collecting garbage

Counts

76 → 1

Calls

Call 1

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

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

Calls

7 calls:

30.0ms	(cos.f64 phi1)
24.0ms	phi1
21.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
19.0ms	(cos.f64 phi2)
19.0ms	phi2

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes193.0ms (1.3%)

Memory

103.4MiB live, 182.2MiB allocated; 64ms collecting garbage

Counts

55 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

69.0ms	lambda1
53.0ms	(cos.f64 phi1)
14.0ms	phi1
14.0ms	phi2
14.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes110.0ms (0.8%)

Memory

-90.4MiB live, 142.4MiB allocated; 22ms collecting garbage

Counts

53 → 5

Calls

Call 1

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

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

Calls

7 calls:

21.0ms	(cos.f64 phi2)
19.0ms	lambda1
15.0ms	phi2
13.0ms	phi1
13.0ms	lambda2

Results

Accuracy	Segments	Branch
90.5%	3	`(cos.f64 phi1)`
90.1%	2	`(cos.f64 phi2)`
98.3%	5	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
91.3%	3	`lambda1`
89.2%	3	`lambda2`
88.7%	2	`phi1`
90.2%	2	`phi2`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes31.0ms (0.2%)

Memory

9.2MiB live, 55.1MiB allocated; 3ms collecting garbage

Counts

52 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

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

Results

Accuracy	Segments	Branch
90.2%	2	`phi2`
88.3%	3	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`

Compiler

Compiled 17 to 18 computations (-5.9% saved)

regimes56.0ms (0.4%)

Memory

-2.3MiB live, 90.8MiB allocated; 5ms collecting garbage

Counts

41 → 2

Calls

Call 1

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

Outputs

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

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

Calls

5 calls:

12.0ms	phi2
11.0ms	(cos.f64 phi1)
10.0ms	phi1
10.0ms	lambda1
10.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
88.7%	2	`phi1`
88.7%	2	`(cos.f64 phi1)`
78.5%	1	`lambda1`
87.2%	2	`(cos.f64 phi2)`
87.2%	2	`phi2`

Compiler

Compiled 7 to 22 computations (-214.3% saved)

regimes64.0ms (0.4%)

Memory

15.2MiB live, 112.0MiB allocated; 7ms collecting garbage

Counts

38 → 2

Calls

Call 1

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

Outputs

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

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

Calls

6 calls:

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

Results

Accuracy	Segments	Branch
78.5%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
81.2%	2	`(cos.f64 phi2)`
81.1%	2	`phi2`
78.5%	1	`lambda2`
78.5%	1	`(cos.f64 phi1)`
78.5%	1	`phi1`

Compiler

Compiled 23 to 36 computations (-56.5% saved)

regimes21.0ms (0.1%)

Memory

-8.8MiB live, 37.7MiB allocated; 3ms collecting garbage

Counts

35 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

10.0ms	(cos.f64 phi2)
9.0ms	phi2

Results

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

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes19.0ms (0.1%)

Memory

-12.0MiB live, 34.3MiB allocated; 3ms collecting garbage

Counts

31 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

9.0ms	(cos.f64 phi2)
8.0ms	phi2

Results

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

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes50.0ms (0.3%)

Memory

1.4MiB live, 144.4MiB allocated; 8ms collecting garbage

Counts

23 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
76.3%	1	`lambda1`
76.3%	1	`lambda2`
76.3%	1	`phi1`
76.3%	1	`(cos.f64 phi1)`
76.3%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
78.2%	2	`phi2`
78.5%	2	`(cos.f64 phi2)`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes33.0ms (0.2%)

Memory

14.9MiB live, 111.2MiB allocated; 3ms collecting garbage

Counts

14 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
72.3%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
72.3%	1	`lambda1`
72.3%	1	`phi1`
72.3%	1	`(cos.f64 phi1)`
72.3%	1	`lambda2`
74.3%	2	`phi2`
74.4%	2	`(cos.f64 phi2)`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes29.0ms (0.2%)

Memory

11.4MiB live, 58.4MiB allocated; 2ms collecting garbage

Counts

13 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes23.0ms (0.2%)

Memory

-0.3MiB live, 46.3MiB allocated; 1ms collecting garbage

Counts

9 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
66.7%	2	`(cos.f64 phi2)`
64.5%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
64.5%	1	`lambda1`
64.5%	1	`phi1`
66.2%	2	`(cos.f64 phi1)`
64.5%	1	`lambda2`
66.5%	2	`phi2`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes9.0ms (0.1%)

Memory

-29.3MiB live, 17.1MiB allocated; 2ms collecting garbage

Counts

7 → 1

Calls

Call 1

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

Outputs

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

Calls

3 calls:

3.0ms	(cos.f64 phi2)
2.0ms	phi2
2.0ms	(cos.f64 phi1)

Results

Accuracy	Segments	Branch
64.5%	1	`(cos.f64 phi1)`
64.5%	1	`phi2`
64.5%	1	`(cos.f64 phi2)`

Compiler

Compiled 5 to 14 computations (-180% saved)

regimes9.0ms (0.1%)

Memory

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

Counts

2 → 1

Calls

Call 1

Inputs

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

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes45.0ms (0.3%)

Memory

-31.8MiB live, 20.3MiB allocated; 59ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	3.141592653589793	59651214.62924275
0.0ms	0.004009329655463286	0.04266810863483111
0.0ms	-6.8301971969485726e-6	-7.045684243353855e-9
0.0ms	-107.55127843599949	-3.141592653589793

Compiler

Compiled 19 to 21 computations (-10.5% saved)

bsearch32.0ms (0.2%)

Memory

-6.3MiB live, 42.3MiB allocated; 5ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
30.0ms	206555315234365.88	647787804811354.6

Samples

17.0ms	26×	1	valid
7.0ms	54×	0	valid

Compiler

Compiled 283 to 236 computations (16.6% saved)

Precisions

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

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

ival-sin: 3.0ms (14.1% of total)

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

ival-add!: 1.0ms (4.7% of total)

adjust: 1.0ms (4.7% of total)

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9918114631395609	0.9939190910354088

Compiler

Compiled 23 to 21 computations (8.7% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.038956845301739436	0.05318596720950212

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9296794491531511	0.9429203256516542

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9296794491531511	0.9429203256516542

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.6871779594039166	0.700340633956947

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.6871779594039166	0.700340633956947

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
0.0ms	0.6871779594039166	0.700340633956947

Compiler

Compiled 22 to 21 computations (4.5% saved)

derivations6.0ms (0%)

Memory

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

Stop Event

1×

fuel

Compiler

Compiled 381 to 212 computations (44.4% saved)

preprocess200.0ms (1.4%)

Memory

-0.6MiB live, 472.0MiB allocated; 28ms collecting garbage

Remove

(abs phi2)

(abs phi1)

Compiler

Compiled 3 393 to 2 622 computations (22.7% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze710.0ms (4.9%)

sample4.8s (33.1%)

preprocess66.0ms (0.5%)

series24.0ms (0.2%)

rewrite948.0ms (6.6%)

eval26.0ms (0.2%)

prune34.0ms (0.2%)

series69.0ms (0.5%)

rewrite1.6s (11.4%)

eval111.0ms (0.8%)

prune59.0ms (0.4%)

series82.0ms (0.6%)

rewrite2.0s (13.6%)

eval72.0ms (0.5%)

prune73.0ms (0.5%)

series144.0ms (1%)

rewrite1.7s (11.8%)

eval75.0ms (0.5%)

prune82.0ms (0.6%)

regimes186.0ms (1.3%)

regimes186.0ms (1.3%)

regimes160.0ms (1.1%)

regimes160.0ms (1.1%)

regimes155.0ms (1.1%)

regimes193.0ms (1.3%)

regimes110.0ms (0.8%)

regimes31.0ms (0.2%)

regimes56.0ms (0.4%)

regimes64.0ms (0.4%)

regimes21.0ms (0.1%)

regimes19.0ms (0.1%)

regimes50.0ms (0.3%)

regimes33.0ms (0.2%)

regimes29.0ms (0.2%)

regimes23.0ms (0.2%)

regimes9.0ms (0.1%)

regimes9.0ms (0.1%)

regimes45.0ms (0.3%)

bsearch1.0ms (0%)

bsearch32.0ms (0.2%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

derivations6.0ms (0%)

preprocess200.0ms (1.4%)

end0.0ms (0%)

Profiling