Metrics for Midpoint on a great circle

start0.0ms (0%)

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

analyze529.0ms (4.6%)

Memory

6.9MiB live, 427.5MiB allocated; 59ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 22 to 16 computations (27.3% saved)

sample5.3s (46.3%)

Memory

-138.1MiB live, 3 744.5MiB allocated; 2.2s collecting garbage

Samples

4.3s	4 492×	1	valid
476.0ms	3 758×	0	valid
3.0ms	6×	2	valid

Precisions

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

ival-cos: 3.2s (71.4% of total)

ival-sin: 513.0ms (11.3% of total)

ival-atan2: 267.0ms (5.9% of total)

adjust: 235.0ms (5.2% of total)

ival-mult!: 157.0ms (3.5% of total)

ival-add!: 71.0ms (1.6% of total)

ival-sub!: 49.0ms (1.1% of total)

Bogosity

preprocess51.0ms (0.4%)

Memory

-19.7MiB live, 38.2MiB allocated; 14ms 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.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))))))

Symmetry

(abs phi1)

(abs phi2)

Compiler

Compiled 32 to 28 computations (12.5% saved)

series22.0ms (0.2%)

Memory

34.9MiB live, 34.9MiB 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)))

rewrite256.0ms (2.2%)

Memory

3.3MiB live, 226.5MiB allocated; 45ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	371	2389
0	391	2317
1	2239	2315
0	9419	2184

Stop Event

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

Counts

116 → 184

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

eval85.0ms (0.7%)

Memory: -16.2MiB live, 29.2MiB allocated; 3ms collecting garbage
Compiler: Compiled 2 893 to 1 096 computations (62.1% saved)

prune23.0ms (0.2%)

Memory

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

Pruning

27 alts after pruning (27 fresh and 0 done)

	Pruned	Kept	Total
New	146	27	173
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	147	27	174

Accuracy

98.7%

Counts

174 → 27

Alt Table

Click to see full alt table

Status	Accuracy	Program
	51.9%	(/.f64 (fma.f64 (.f64 lambda1 lambda1) lambda1 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))))
	68.9%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 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)))))
	59.8%	(+.f64 lambda1 (atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	98.4%	(+.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))))))
	50.9%	(+.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)))))))
	93.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	98.2%	(+.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))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	92.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
▶	97.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	80.9%	(+.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))))))
	81.0%	(+.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))))))
▶	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
	97.1%	(+.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)))))
▶	89.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	69.0%	(+.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))))))
	97.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.6%	(+.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))))))
	79.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 (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))))))
	79.5%	(+.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.8%	(+.f64 lambda1 (atan2.f64 #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)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.9%	(+.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))))))
	36.9%	#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.3%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
▶	57.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 1 366 to 1 096 computations (19.8% saved)

series80.0ms (0.7%)

Memory

-14.1MiB live, 84.0MiB allocated; 19ms collecting garbage

Counts

45 → 187

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

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 (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (neg lambda1) #s(hole binary64 (* -1 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))
#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 (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (/ (cos lambda2) 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 (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))))
#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 (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 1))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* lambda2 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 (sin 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 (* -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 (+ (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) (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
34.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) 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) (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)))
9.0ms	phi1	@	-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) 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) (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)))
6.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) 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) (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)))
4.0ms	phi2	@	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) 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) (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)))
4.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) 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) (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)))

rewrite240.0ms (2.1%)

Memory

-11.2MiB live, 246.3MiB allocated; 108ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	727	4814
0	797	4346
1	4560	4346
0	8214	4116

Stop Event

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

Counts

232 → 407

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

eval79.0ms (0.7%)

Memory: -21.3MiB live, 168.8MiB allocated; 21ms collecting garbage
Compiler: Compiled 7 702 to 2 872 computations (62.7% saved)

prune53.0ms (0.5%)

Memory

21.7MiB live, 116.7MiB allocated; 2ms collecting garbage

Pruning

50 alts after pruning (48 fresh and 2 done)

	Pruned	Kept	Total
New	467	41	508
Fresh	15	7	22
Picked	3	2	5
Done	0	0	0
Total	485	50	535

Accuracy

99.8%

Counts

535 → 50

Alt Table

Click to see full alt table

Status	Accuracy	Program
	36.5%	(/.f64 (fma.f64 (.f64 lambda1 lambda1) lambda1 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))))))))
	51.6%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))))))
	80.0%	(+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1)
	89.5%	(+.f64 (atan2.f64 (*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2) (cos.f64 phi1))) lambda1)
	58.8%	(+.f64 lambda1 (atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	70.4%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	99.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	82.7%	(+.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) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	97.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) #s(approx (cos (- lambda1 lambda2)) (fma.f64 lambda1 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	98.4%	(+.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))))))
	50.9%	(+.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)))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (fma.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (cos phi1) #s(literal 1 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	73.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	92.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
	97.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (/.f64 (-.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 lambda1)) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) lambda2))))) (-.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 lambda1)) (cos.f64 lambda2))))))))
	79.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64))))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 lambda2 lambda1 #s(literal 1 binary64))))))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64)))))))
	80.9%	(+.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))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
▶	72.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	71.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	77.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (pow.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))))))
	89.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 (pow.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))))))))
▶	89.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
✓	89.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	69.0%	(+.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))))))
	61.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	97.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	70.7%	(+.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) #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))))))
	79.1%	(+.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))) (-.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 (.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))))))
	70.1%	(+.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 #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 (-.f64 lambda1 lambda2))))))
	70.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) #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))))))
	74.7%	(+.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) (neg.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))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	79.6%	(+.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))))))
	79.5%	(+.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))))))
	78.9%	(+.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)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
▶	70.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	74.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
▶	79.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	36.9%	#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.3%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	57.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 2 749 to 2 219 computations (19.3% saved)

series92.0ms (0.8%)

Memory

-15.7MiB live, 170.7MiB allocated; 16ms collecting garbage

Counts

62 → 307

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

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

Calls

12 calls:

Time	Variable		Point	Expression
13.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) (* (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (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)))) (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -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) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (neg lambda2) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))
10.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) (* (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (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)))) (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -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) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (neg lambda2) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))
7.0ms	phi2	@	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) (* (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (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)))) (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -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) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (neg lambda2) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))
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) (* (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (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)))) (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -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) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (neg lambda2) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))
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) (* (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (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)))) (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -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) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (neg lambda2) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))

rewrite186.0ms (1.6%)

Memory

19.2MiB live, 258.7MiB allocated; 47ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1200	11660
0	1290	9491
0	8177	8921

Stop Event

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

Counts

369 → 563

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

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

eval78.0ms (0.7%)

Memory: 3.7MiB live, 139.1MiB allocated; 15ms collecting garbage
Compiler: Compiled 11 447 to 3 005 computations (73.7% saved)

prune136.0ms (1.2%)

Memory

11.4MiB live, 108.1MiB allocated; 15ms collecting garbage

Pruning

65 alts after pruning (62 fresh and 3 done)

	Pruned	Kept	Total
New	472	31	503
Fresh	12	31	43
Picked	4	1	5
Done	0	2	2
Total	488	65	553

Accuracy

99.8%

Counts

553 → 65

Alt Table

Click to see full alt table

Status	Accuracy	Program
	51.6%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))))))
	29.4%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))))))))
	80.0%	(+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1)
	72.0%	(+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos.f64 lambda1)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1)
	70.4%	(+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1)
	89.5%	(+.f64 (atan2.f64 (*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2) (cos.f64 phi1))) lambda1)
	70.4%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))))
✓	99.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
▶	82.7%	(+.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) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	81.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 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	97.3%	(+.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.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (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)))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64))) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	97.4%	(+.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.4%	(+.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))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (fma.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (cos phi1) #s(literal 1 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	73.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	92.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
	97.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (/.f64 (-.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 lambda1)) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) lambda2))))) (-.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 lambda1)) (cos.f64 lambda2))))))))
	79.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64))))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 lambda2 lambda1 #s(literal 1 binary64))))))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64)))))))
	80.9%	(+.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))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
	71.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 lambda1) #s(literal 1/24 binary64)) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)) (.f64 lambda1 lambda1) #s(literal 1 binary64))))))))
	71.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)) (*.f64 lambda1 lambda1) #s(literal 1 binary64))))))))
	71.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))))))))
	71.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64)))))))
	71.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	77.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (pow.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))))))
	89.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))))))))
	89.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 (pow.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))))))))
✓	89.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	69.0%	(+.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))))))
	61.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	97.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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)))))))
	69.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	70.7%	(+.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) #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))))))
	66.0%	(+.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 #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))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	80.5%	(+.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)))))))
	70.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) #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))))))
	66.7%	(+.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) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	74.7%	(+.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) (neg.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 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
▶	74.7%	(+.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) (neg.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))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	79.6%	(+.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))))))
	31.4%	(+.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) #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)))))))
▶	62.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))))))
	79.5%	(+.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))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	70.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2))))))
	67.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))))
	74.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
▶	59.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(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	70.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 (-.f64 lambda1 lambda2)) (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))))))
	79.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	53.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(approx (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (.f64 (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) (/.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (.f64 phi2 phi2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	59.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(approx (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	36.9%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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.3%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	57.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 3 804 to 3 043 computations (20% saved)

series103.0ms (0.9%)

Memory

15.9MiB live, 156.3MiB allocated; 18ms collecting garbage

Counts

69 → 395

Calls

Call 1

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

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

Calls

12 calls:

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

rewrite257.0ms (2.2%)

Memory

-35.4MiB live, 338.1MiB allocated; 59ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1595	16466
0	1679	14562
0	8447	14255

Stop Event

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

Counts

464 → 582

Calls

Call 1

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

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

eval81.0ms (0.7%)

Memory: 50.8MiB live, 186.0MiB allocated; 10ms collecting garbage
Compiler: Compiled 13 228 to 3 585 computations (72.9% saved)

prune155.0ms (1.4%)

Memory

-29.9MiB live, 151.4MiB allocated; 30ms collecting garbage

Pruning

83 alts after pruning (78 fresh and 5 done)

	Pruned	Kept	Total
New	497	30	527
Fresh	9	48	57
Picked	3	2	5
Done	0	3	3
Total	509	83	592

Accuracy

99.8%

Counts

592 → 83

Alt Table

Click to see full alt table

Status	Accuracy	Program
	51.6%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))))))
	80.0%	(+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1)
	72.0%	(+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos.f64 lambda1)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1)
	70.4%	(+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1)
	89.5%	(+.f64 (atan2.f64 (*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2) (cos.f64 phi1))) lambda1)
	70.4%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	82.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	82.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	73.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 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
✓	99.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	64.0%	(+.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) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))))))
	81.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 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	97.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (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)))))))
	82.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	81.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 phi1)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) #s(approx (sin lambda2) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2)))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64))) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	97.4%	(+.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)))))))
	97.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (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.4%	(+.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))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (fma.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (cos phi1) #s(literal 1 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	73.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	92.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
	97.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (/.f64 (-.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 lambda1)) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) lambda2))))) (-.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 lambda1)) (cos.f64 lambda2))))))))
	79.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64))))))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64)))))))
	80.9%	(+.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))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
	71.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 lambda1) #s(literal 1/24 binary64)) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)) (.f64 lambda1 lambda1) #s(literal 1 binary64))))))))
	71.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)) (*.f64 lambda1 lambda1) #s(literal 1 binary64))))))))
	71.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))))))))
	71.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64)))))))
	71.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	77.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (pow.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))))))
	89.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))))))))
✓	89.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	69.0%	(+.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))))))
	61.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	97.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	69.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	70.7%	(+.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) #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))))))
	66.0%	(+.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 #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))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	80.5%	(+.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)))))))
	70.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) #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))))))
	66.7%	(+.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) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	46.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 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.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) (neg.f64 lambda2)))) (.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) (neg.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))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))))
	53.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 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.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) (neg.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 (.f64 (.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) (neg.f64 lambda2)))) (.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) (neg.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))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))))))
	74.7%	(+.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) (neg.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 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
	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) (neg.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))) (sin.f64 (+.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
✓	74.7%	(+.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) (neg.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))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	66.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 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 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) (neg.f64 lambda2)))))))
	58.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (/.f64 (-.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64)))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (/.f64 (-.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	72.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	74.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 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/2) 1) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	79.6%	(+.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))))))
	31.4%	(+.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) #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)))))))
	62.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))))) (/.f64 (-.f64 (pow.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(literal 3 binary64))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))))))))))
	62.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (* (cos (- lambda1 lambda2)) (cos phi2))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))))))
	63.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #s(approx (- ( (cos phi1) (cos phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))))))
	62.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	70.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2))))))
	79.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (/ (- ( (cos phi1) (cos phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	67.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))))
✓	59.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(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	59.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(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda2 (*.f64 #s(literal 1 binary64) lambda1))))))))
	59.6%	(+.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(literal 1 binary64)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
	59.2%	(+.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(literal 1 binary64)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
	62.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
	70.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	66.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	79.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	53.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(approx (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (.f64 (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) (/.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (.f64 phi2 phi2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	59.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(approx (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	65.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (-.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2)))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	65.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	66.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	36.9%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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.3%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	57.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 4 753 to 2 836 computations (40.3% saved)

regimes263.0ms (2.3%)

Memory

32.3MiB live, 412.2MiB allocated; 34ms collecting garbage

Counts

130 → 1

Calls

Call 1

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

44.0ms	phi2
42.0ms	lambda1
41.0ms	lambda2
34.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))))))
32.0ms	(cos.f64 phi1)

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes243.0ms (2.1%)

Memory

-13.1MiB live, 462.3MiB allocated; 60ms collecting garbage

Counts

121 → 1

Calls

Call 1

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

Outputs

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

45.0ms	phi1
36.0ms	lambda2
32.0ms	(cos.f64 phi1)
32.0ms	phi2
31.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
98.6%	1	`(cos.f64 phi1)`
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	`phi2`
98.6%	1	`(cos.f64 phi2)`
98.6%	1	`phi1`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes312.0ms (2.7%)

Memory

34.5MiB live, 364.9MiB allocated; 182ms collecting garbage

Counts

117 → 1

Calls

Call 1

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

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:

77.0ms	(cos.f64 phi2)
71.0ms	phi1
39.0ms	phi2
35.0ms	lambda2
30.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
98.4%	1	`(cos.f64 phi1)`
98.4%	1	`(cos.f64 phi2)`
98.4%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
98.4%	1	`lambda1`
98.4%	1	`lambda2`
98.4%	1	`phi1`
98.4%	1	`phi2`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes220.0ms (1.9%)

Memory

-16.4MiB live, 216.8MiB allocated; 28ms 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 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #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) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)))) 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(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) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda2 (*.f64 #s(literal 1 binary64) lambda1))))))))
(+.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) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #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 #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) #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) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 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) (neg.f64 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) #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 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #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 (cos.f64 phi1) (.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(approx (+ ( (* phi2 phi2) -1/2) 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/2) 1) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #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 phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #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 #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))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(+.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) (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 #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 (-.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(literal 1 binary64)) #s(approx ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #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)) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #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(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (-.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2)))))) (+.f64 #s(approx (cos phi1) #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) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi2 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) (neg.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))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)) (*.f64 lambda1 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 (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 (.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) #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 phi2 phi2) #s(literal -1/2 binary64) #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 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (+.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 lambda1) #s(literal 1/24 binary64)) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)) (.f64 lambda1 lambda1) #s(literal 1 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (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 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (* (cos (- lambda1 lambda2)) (cos phi2))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos.f64 lambda1)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) 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 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #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) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #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) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 lambda2 lambda1 #s(literal 1 binary64))))))))
(+.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)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(approx (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64))))))))
(+.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 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 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)) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (/.f64 (-.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64)))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (/.f64 (-.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 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 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 (-.f64 lambda1 lambda2)) (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 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #s(approx (- ( (cos phi1) (cos phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2) (cos.f64 phi1))) 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))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.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 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))))))))
(+.f64 lambda1 (atan2.f64 #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)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(approx (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (.f64 (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) (/.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (.f64 phi2 phi2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (+.f64 (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 (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) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 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) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.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) (neg.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 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
(+.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 (.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))) (-.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 (.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) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(+.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) (neg.f64 lambda2)))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.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) (neg.f64 lambda2)))) (.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) (neg.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))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) (+.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)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))

Outputs

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

66.0ms	(cos.f64 phi1)
28.0ms	lambda1
27.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))))))
26.0ms	phi2
25.0ms	phi1

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes181.0ms (1.6%)

Memory

44.5MiB live, 222.1MiB allocated; 22ms 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 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #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) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)))) 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(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) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda2 (*.f64 #s(literal 1 binary64) lambda1))))))))
(+.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) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #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 #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) #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) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 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) (neg.f64 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) #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 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #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 (cos.f64 phi1) (.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(approx (+ ( (* phi2 phi2) -1/2) 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/2) 1) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #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 phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #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 #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))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(+.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) (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 #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 (-.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(literal 1 binary64)) #s(approx ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #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)) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #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(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (-.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2)))))) (+.f64 #s(approx (cos phi1) #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) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi2 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) (neg.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))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)) (*.f64 lambda1 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 (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 (.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) #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 phi2 phi2) #s(literal -1/2 binary64) #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 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (+.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 lambda1) #s(literal 1/24 binary64)) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)) (.f64 lambda1 lambda1) #s(literal 1 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (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 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (* (cos (- lambda1 lambda2)) (cos phi2))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos.f64 lambda1)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) 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 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #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) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #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) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 lambda2 lambda1 #s(literal 1 binary64))))))))
(+.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)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(approx (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64))))))))
(+.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 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 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)) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (/.f64 (-.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64)))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (/.f64 (-.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 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 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 (-.f64 lambda1 lambda2)) (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 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #s(approx (- ( (cos phi1) (cos phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2) (cos.f64 phi1))) 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))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.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 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))))))))
(+.f64 lambda1 (atan2.f64 #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)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(approx (+ (* (* (* phi2 phi2) -1/2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2))) (.f64 (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) (/.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (.f64 phi2 phi2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))) #s(literal 2 binary64)) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (+.f64 (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 (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) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 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) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.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) (neg.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 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes123.0ms (1.1%)

Memory

-4.5MiB live, 184.1MiB allocated; 16ms collecting garbage

Counts

64 → 1

Calls

Call 1

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

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:

20.0ms	(cos.f64 phi2)
18.0ms	lambda1
17.0ms	phi1
16.0ms	phi2
16.0ms	lambda2

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes163.0ms (1.4%)

Memory

2.7MiB live, 193.9MiB allocated; 58ms collecting garbage

Counts

62 → 3

Calls

Call 1

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

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

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

Calls

7 calls:

53.0ms	lambda1
25.0ms	lambda2
18.0ms	phi2
18.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))))))
17.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
92.9%	2	`(cos.f64 phi1)`
94.6%	2	`(cos.f64 phi2)`
96.6%	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))))))`
91.5%	2	`lambda1`
97.1%	3	`lambda2`
92.9%	2	`phi1`
94.6%	2	`phi2`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes118.0ms (1%)

Memory

-1.1MiB live, 184.5MiB allocated; 20ms collecting garbage

Counts

59 → 2

Calls

Call 1

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

Outputs

(+.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 (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

7 calls:

22.0ms	phi1
17.0ms	phi2
17.0ms	lambda2
15.0ms	(cos.f64 phi1)
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))))))

Results

Accuracy	Segments	Branch
83.9%	2	`lambda1`
89.5%	2	`(cos.f64 phi1)`
89.5%	2	`phi1`
91.0%	2	`(cos.f64 phi2)`
91.0%	2	`phi2`
89.2%	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))))))`
89.0%	3	`lambda2`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes17.0ms (0.1%)

Memory

-21.6MiB live, 25.0MiB allocated; 3ms collecting garbage

Counts

53 → 2

Calls

Call 1

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

Outputs

(+.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 (*.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

1 calls:

14.0ms

phi2

Results

Accuracy	Segments	Branch
91.0%	2	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes40.0ms (0.4%)

Memory

12.3MiB live, 59.2MiB allocated; 1ms collecting garbage

Counts

51 → 2

Calls

Call 1

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

Calls

3 calls:

13.0ms	(cos.f64 phi1)
13.0ms	phi2
12.0ms	(cos.f64 phi2)

Results

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

Compiler

Compiled 5 to 14 computations (-180% saved)

regimes55.0ms (0.5%)

Memory

-10.9MiB live, 83.7MiB allocated; 10ms collecting garbage

Counts

44 → 3

Calls

Call 1

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

Outputs

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

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

Calls

4 calls:

15.0ms	phi1
15.0ms	(cos.f64 phi2)
11.0ms	(cos.f64 phi1)
11.0ms	phi2

Results

Accuracy	Segments	Branch
90.8%	3	`(cos.f64 phi2)`
88.9%	2	`phi2`
88.8%	2	`phi1`
88.8%	2	`(cos.f64 phi1)`

Compiler

Compiled 6 to 18 computations (-200% saved)

regimes27.0ms (0.2%)

Memory

-1.3MiB live, 44.6MiB allocated; 5ms collecting garbage

Counts

43 → 2

Calls

Call 1

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

Outputs

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

Calls

2 calls:

15.0ms	phi2
10.0ms	(cos.f64 phi2)

Results

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

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes96.0ms (0.8%)

Memory

12.9MiB live, 111.8MiB allocated; 6ms 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 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #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) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)))) 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(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) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda2 (*.f64 #s(literal 1 binary64) lambda1))))))))
(+.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) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #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 #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) #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) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))) (+.f64 #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 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) (neg.f64 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) #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 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #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 (cos.f64 phi1) (.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(approx (+ ( (* phi2 phi2) -1/2) 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/2) 1) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #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 phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #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 #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))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(+.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) (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 #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 (-.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(literal 1 binary64)) #s(approx ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #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)) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #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(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (-.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2)))))) (+.f64 #s(approx (cos phi1) #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) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi2 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) (neg.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))) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)) (*.f64 lambda1 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 (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 (.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) #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 phi2 phi2) #s(literal -1/2 binary64) #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 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (+.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 lambda1) #s(literal 1/24 binary64)) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)) (.f64 lambda1 lambda1) #s(literal 1 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (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 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (* (cos (- lambda1 lambda2)) (cos phi2))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos.f64 lambda1)) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64)))) 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 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin 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))))))

Outputs

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

Calls

6 calls:

39.0ms	(cos.f64 phi1)
13.0ms	lambda2
11.0ms	phi1
10.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))))))

Results

Accuracy	Segments	Branch
80.9%	1	`lambda2`
80.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))))))`
80.9%	1	`phi1`
80.9%	1	`(cos.f64 phi1)`
85.1%	2	`(cos.f64 phi2)`
85.6%	2	`phi2`

Compiler

Compiled 23 to 36 computations (-56.5% saved)

regimes11.0ms (0.1%)

Memory

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

Counts

37 → 2

Calls

Call 1

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

Outputs

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

Calls

1 calls:

9.0ms

phi2

Results

Accuracy	Segments	Branch
85.1%	2	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes13.0ms (0.1%)

Memory

-24.8MiB live, 20.8MiB allocated; 3ms collecting garbage

Counts

33 → 2

Calls

Call 1

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

Outputs

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

Calls

1 calls:

11.0ms

phi2

Results

Accuracy	Segments	Branch
85.1%	2	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes17.0ms (0.1%)

Memory

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

Counts

30 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

8.0ms	phi2
7.0ms	(cos.f64 phi2)

Results

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

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes40.0ms (0.4%)

Memory

-35.8MiB live, 10.6MiB allocated; 2ms collecting garbage

Counts

25 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

39.0ms

(cos.f64 phi2)

Results

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

Compiler

Compiled 2 to 5 computations (-150% saved)

regimes36.0ms (0.3%)

Memory

1.9MiB live, 48.8MiB allocated; 1ms collecting garbage

Counts

17 → 2

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
79.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))))))`
79.5%	1	`lambda2`
79.5%	1	`phi1`
79.5%	1	`(cos.f64 phi1)`
79.5%	1	`lambda1`
79.5%	1	`phi2`
81.8%	2	`(cos.f64 phi2)`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes43.0ms (0.4%)

Memory

3.4MiB live, 61.7MiB allocated; 22ms collecting garbage

Counts

16 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
74.1%	1	`lambda1`
76.4%	2	`phi1`
76.4%	2	`(cos.f64 phi1)`
74.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))))))`
74.1%	1	`lambda2`
74.1%	1	`phi2`
76.4%	2	`(cos.f64 phi2)`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes9.0ms (0.1%)

Memory

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

Counts

15 → 2

Calls

Call 1

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

Outputs

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

Calls

2 calls:

4.0ms	(cos.f64 phi1)
4.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
76.4%	2	`(cos.f64 phi2)`
75.7%	2	`(cos.f64 phi1)`

Compiler

Compiled 4 to 10 computations (-150% saved)

regimes32.0ms (0.3%)

Memory

-33.7MiB live, 58.9MiB allocated; 6ms collecting garbage

Counts

13 → 2

Calls

Call 1

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
70.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))))))`
70.9%	1	`lambda1`
70.9%	1	`lambda2`
70.9%	1	`phi2`
70.9%	1	`(cos.f64 phi1)`
70.9%	1	`phi1`
72.7%	2	`(cos.f64 phi2)`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes3.0ms (0%)

Memory

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

Counts

8 → 2

Calls

Call 1

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

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

Calls

1 calls:

3.0ms

(cos.f64 phi2)

Results

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

Compiler

Compiled 2 to 5 computations (-150% saved)

regimes16.0ms (0.1%)

Memory

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

Counts

6 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes13.0ms (0.1%)

Memory

-19.0MiB live, 27.5MiB allocated; 2ms collecting garbage

Counts

3 → 1

Calls

Call 1

Inputs

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes7.0ms (0.1%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

bsearch57.0ms (0.5%)

Memory

2.2MiB live, 52.1MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	predicate-same

Steps

Time	Left	Right
38.0ms	9.574215800159195e-167	4.065397077203395e-162
16.0ms	-6.243322773830185e-54	-1.0594044651782597e-54

Samples

29.0ms	52×	1	valid
12.0ms	108×	0	valid

Compiler

Compiled 463 to 431 computations (6.9% saved)

Precisions

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

ival-cos: 21.0ms (57.9% of total)

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

adjust: 3.0ms (8.3% of total)

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

ival-mult!: 2.0ms (5.5% of total)

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

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

bsearch41.0ms (0.4%)

Memory

-33.7MiB live, 56.3MiB allocated; 8ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
36.0ms	22.111977782048594	153.4815365260239

Samples

24.0ms	38×	1	valid
7.0ms	58×	0	valid

Compiler

Compiled 365 to 291 computations (20.3% saved)

Precisions

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

ival-cos: 16.0ms (56.4% of total)

ival-sin: 6.0ms (21.2% of total)

adjust: 2.0ms (7.1% of total)

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

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

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

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

bsearch46.0ms (0.4%)

Memory

34.0MiB live, 79.9MiB allocated; 3ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
44.0ms	8.837132489247298e-5	0.006570041328317897

Samples

34.0ms	61×	1	valid
5.0ms	51×	0	valid

Compiler

Compiled 338 to 301 computations (10.9% saved)

Precisions

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

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

ival-sin: 6.0ms (17.3% of total)

adjust: 3.0ms (8.6% of total)

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

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

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9995695320153155	0.9999917847815369

Compiler

Compiled 23 to 21 computations (8.7% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.9999784173561076	0.9999999960952545
0.0ms	-0.19924212628363086	-0.17341086463303576

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9999784173561076	0.9999999960952545

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch38.0ms (0.3%)

Memory

-5.0MiB live, 46.6MiB allocated; 7ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
36.0ms	1.467721054610845e+20	1.9857270531241437e+21

Samples

20.0ms	33×	1	valid
8.0ms	63×	0	valid

Compiler

Compiled 353 to 309 computations (12.5% saved)

Precisions

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

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

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

adjust: 2.0ms (8.1% of total)

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

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.467721054610845e+20	1.9857270531241437e+21

Compiler

Compiled 353 to 315 computations (10.8% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.467721054610845e+20	1.9857270531241437e+21

Compiler

Compiled 311 to 285 computations (8.4% 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.9318562716673697	0.9345742421487376

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9425840028101967	0.9480044092895576

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.11001522437104391	0.0007474713161403952

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.9990878011546158	0.9991705192222771

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.11001522437104391	0.0007474713161403952

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.11001522437104391	0.0007474713161403952

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.11001522437104391	0.0007474713161403952

Compiler

Compiled 22 to 21 computations (4.5% saved)

derivations1.0s (8.8%)

Memory

26.3MiB live, 814.0MiB allocated; 120ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 411 to 237 computations (42.3% saved)

preprocess348.0ms (3%)

Memory

-27.4MiB live, 746.2MiB allocated; 138ms collecting garbage

Remove

(abs phi2)

(abs phi1)

Compiler

Compiled 4 757 to 3 731 computations (21.6% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze529.0ms (4.6%)

sample5.3s (46.3%)

preprocess51.0ms (0.4%)

series22.0ms (0.2%)

rewrite256.0ms (2.2%)

eval85.0ms (0.7%)

prune23.0ms (0.2%)

series80.0ms (0.7%)

rewrite240.0ms (2.1%)

eval79.0ms (0.7%)

prune53.0ms (0.5%)

series92.0ms (0.8%)

rewrite186.0ms (1.6%)

eval78.0ms (0.7%)

prune136.0ms (1.2%)

series103.0ms (0.9%)

rewrite257.0ms (2.2%)

eval81.0ms (0.7%)

prune155.0ms (1.4%)

regimes263.0ms (2.3%)

regimes243.0ms (2.1%)

regimes312.0ms (2.7%)

regimes220.0ms (1.9%)

regimes181.0ms (1.6%)

regimes123.0ms (1.1%)

regimes163.0ms (1.4%)

regimes118.0ms (1%)

regimes17.0ms (0.1%)

regimes40.0ms (0.4%)

regimes55.0ms (0.5%)

regimes27.0ms (0.2%)

regimes96.0ms (0.8%)

regimes11.0ms (0.1%)

regimes13.0ms (0.1%)

regimes17.0ms (0.1%)

regimes40.0ms (0.4%)

regimes36.0ms (0.3%)

regimes43.0ms (0.4%)

regimes9.0ms (0.1%)

regimes32.0ms (0.3%)

regimes3.0ms (0%)

regimes16.0ms (0.1%)

regimes13.0ms (0.1%)

regimes7.0ms (0.1%)

bsearch57.0ms (0.5%)

bsearch41.0ms (0.4%)

bsearch46.0ms (0.4%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch38.0ms (0.3%)

bsearch2.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

derivations1.0s (8.8%)

preprocess348.0ms (3%)

end0.0ms (0%)

Profiling