Metrics for Spherical law of cosines

start0.0ms (0%)

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

analyze727.0ms (5.9%)

Memory

40.9MiB live, 1 030.1MiB allocated; 105ms 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
0%	0%	99.8%	0.2%	0%	0%	0%	9
0%	0%	99.8%	0.2%	0%	0%	0%	10
1.6%	1.6%	98.2%	0.2%	0%	0%	0%	11
1.6%	1.6%	98.2%	0.2%	0%	0%	0%	12

Compiler

Compiled 21 to 19 computations (9.5% saved)

sample5.1s (41.5%)

Memory

-30.6MiB live, 5 512.2MiB allocated; 2.4s collecting garbage

Samples

4.1s	6 344×	1	valid
336.0ms	1 764×	0	valid
72.0ms	132×	2	valid
21.0ms	16×	3	valid

Precisions

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

adjust: 1.3s (31.9% of total)

ival-cos: 1.3s (31.8% of total)

ival-sin: 803.0ms (19.5% of total)

ival-mult!: 302.0ms (7.3% of total)

ival-acos: 268.0ms (6.5% of total)

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

ival-add!: 32.0ms (0.8% of total)

Bogosity

preprocess41.0ms (0.3%)

Memory

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

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	130	412
1	373	404
2	857	404
3	1887	404
4	4224	404

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	76.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Symmetry

(negabs R)

(sort lambda1 lambda2)

(sort phi1 phi2)

Compiler

Compiled 34 to 34 computations (0% saved)

series83.0ms (0.7%)

Memory

-22.8MiB live, 78.0MiB allocated; 16ms collecting garbage

Counts

17 → 106

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
43.0ms	R	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
6.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
4.0ms	phi2	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
4.0ms	lambda1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
3.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)

rewrite237.0ms (1.9%)

Memory

8.9MiB live, 291.4MiB allocated; 60ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	441	2705
0	458	2651
1	2675	2649
0	10798	2500

Stop Event

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

Counts

123 → 216

Calls

Call 1

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

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

eval33.0ms (0.3%)

Memory: -6.0MiB live, 53.3MiB allocated; 15ms collecting garbage
Compiler: Compiled 3 192 to 1 342 computations (58% saved)

prune35.0ms (0.3%)

Memory

12.7MiB live, 58.0MiB allocated; 2ms collecting garbage

Pruning

35 alts after pruning (35 fresh and 0 done)

	Pruned	Kept	Total
New	164	35	199
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	165	35	200

Accuracy

95.4%

Counts

200 → 35

Alt Table

Click to see full alt table

Status	Accuracy	Program
	76.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	76.1%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	76.0%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	75.9%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))) R)
	75.9%	(.f64 (acos.f64 (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	59.3%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	45.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	47.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	95.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	95.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
	37.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	37.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	63.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
	53.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	45.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	48.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
	44.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #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)))))) R)
	47.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (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)))))) R)
	55.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
	35.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	35.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	34.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	41.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	55.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	35.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	37.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	53.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	42.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
▶	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)

Compiler

Compiled 1 756 to 1 574 computations (10.4% saved)

series172.0ms (1.4%)

Memory

19.6MiB live, 239.2MiB allocated; 31ms collecting garbage

Counts

56 → 353

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
27.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin (+ (neg phi1) (/ (PI) 2))) (+ (neg phi1) (/ (PI) 2)) (neg phi1) (/ (PI) 2) (PI) 2)
16.0ms	lambda2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin (+ (neg phi1) (/ (PI) 2))) (+ (neg phi1) (/ (PI) 2)) (neg phi1) (/ (PI) 2) (PI) 2)
15.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin (+ (neg phi1) (/ (PI) 2))) (+ (neg phi1) (/ (PI) 2)) (neg phi1) (/ (PI) 2) (PI) 2)
13.0ms	phi2	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin (+ (neg phi1) (/ (PI) 2))) (+ (neg phi1) (/ (PI) 2)) (neg phi1) (/ (PI) 2) (PI) 2)
9.0ms	phi2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda2 lambda1)) (cos phi2)) (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin (+ (neg phi1) (/ (PI) 2))) (+ (neg phi1) (/ (PI) 2)) (neg phi1) (/ (PI) 2) (PI) 2)

rewrite153.0ms (1.3%)

Memory

-4.8MiB live, 229.2MiB allocated; 29ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1367	11561
0	1452	10364
0	8970	9957

Stop Event

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

Counts

409 → 642

Calls

Call 1

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

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

eval156.0ms (1.3%)

Memory: -17.2MiB live, 135.6MiB allocated; 38ms collecting garbage
Compiler: Compiled 8 976 to 3 397 computations (62.2% saved)

prune124.0ms (1%)

Memory

-2.1MiB live, 141.3MiB allocated; 20ms collecting garbage

Pruning

61 alts after pruning (59 fresh and 2 done)

	Pruned	Kept	Total
New	519	51	570
Fresh	22	8	30
Picked	3	2	5
Done	0	0	0
Total	544	61	605

Accuracy

95.6%

Counts

605 → 61

Alt Table

Click to see full alt table

Status	Accuracy	Program
	76.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	44.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
	95.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2))) (cos.f64 phi1)))) R)
	95.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2))) (cos.f64 phi1)))) R)
	46.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi1)))) R)
	45.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	76.1%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	35.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
	53.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (cos.f64 phi1)))) R)
	43.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
	76.0%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	75.9%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))) R)
	75.9%	(.f64 (acos.f64 (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	95.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (fma.f64 (sin.f64 (neg.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 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	55.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	19.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 #s(approx (+ (neg phi1) (/ (PI) 2)) (neg.f64 phi1))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	47.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	95.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	53.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	55.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	95.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))) R)
	37.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	37.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	53.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	48.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	29.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	52.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	53.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	38.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	30.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
	35.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	35.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	25.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	34.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 phi2)) (cos.f64 lambda1))))) R)
	34.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 lambda2)) (cos.f64 phi2))))) R)
	35.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
▶	37.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	55.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	53.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	30.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	42.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
	53.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	34.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	13.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda2 lambda2 (fma.f64 lambda1 lambda1 (.f64 lambda2 lambda1))))) (cos.f64 phi1)))) R)
	23.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
▶	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	30.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	35.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi1)))) R)
	33.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1)))) R)
	23.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	26.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (fma.f64 (.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))) (cos.f64 phi1)))) R)
	26.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	27.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
	30.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
▶	27.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)

Compiler

Compiled 3 370 to 3 152 computations (6.5% saved)

series155.0ms (1.3%)

Memory

21.0MiB live, 304.2MiB allocated; 24ms collecting garbage

Counts

61 → 360

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
25.0ms	phi2	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 1 (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (PI) 2 (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (+ (* (sin (neg phi1)) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (+ (* (sin (neg phi1)) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (sin (neg phi1)) (neg phi1) (cos (/ (PI) 2)) (* (cos phi1) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
21.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 1 (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (PI) 2 (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (+ (* (sin (neg phi1)) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (+ (* (sin (neg phi1)) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (sin (neg phi1)) (neg phi1) (cos (/ (PI) 2)) (* (cos phi1) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
16.0ms	R	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 1 (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (PI) 2 (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (+ (* (sin (neg phi1)) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (+ (* (sin (neg phi1)) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (sin (neg phi1)) (neg phi1) (cos (/ (PI) 2)) (* (cos phi1) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
13.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 1 (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (PI) 2 (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (+ (* (sin (neg phi1)) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (+ (* (sin (neg phi1)) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (sin (neg phi1)) (neg phi1) (cos (/ (PI) 2)) (* (cos phi1) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
12.0ms	lambda1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 1 (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (PI) 2 (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (+ (* (sin (neg phi1)) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (+ (* (sin (neg phi1)) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (sin (neg phi1)) (neg phi1) (cos (/ (PI) 2)) (* (cos phi1) (sin (/ (PI) 2))) (sin (/ (PI) 2)))

rewrite306.0ms (2.5%)

Memory

7.4MiB live, 246.2MiB allocated; 154ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1468	12456
0	1550	10878
0	8717	10216

Stop Event

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

Counts

421 → 602

Calls

Call 1

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

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

eval120.0ms (1%)

Memory: 4.7MiB live, 133.0MiB allocated; 52ms collecting garbage
Compiler: Compiled 9 779 to 3 507 computations (64.1% saved)

prune141.0ms (1.1%)

Memory

-24.9MiB live, 175.4MiB allocated; 33ms collecting garbage

Pruning

68 alts after pruning (64 fresh and 4 done)

	Pruned	Kept	Total
New	539	23	562
Fresh	13	41	54
Picked	3	2	5
Done	0	2	2
Total	555	68	623

Accuracy

95.6%

Counts

623 → 68

Alt Table

Click to see full alt table

Status	Accuracy	Program
	76.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	44.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
	37.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
	27.4%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	95.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2))) (cos.f64 phi1)))) R)
▶	95.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2))) (cos.f64 phi1)))) R)
	45.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	76.1%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	35.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
	53.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (cos.f64 phi1)))) R)
	43.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
	76.0%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	75.9%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))) R)
	75.9%	(.f64 (acos.f64 (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	95.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (fma.f64 (sin.f64 (neg.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 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	55.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	19.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 #s(approx (+ (neg phi1) (/ (PI) 2)) (neg.f64 phi1))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	47.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
✓	95.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	55.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) #s(approx (* (cos lambda2) (cos lambda1)) (cos.f64 lambda2)))))) R)
	53.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) #s(approx (* (cos lambda2) (cos lambda1)) (cos.f64 lambda1)))))) R)
	95.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
	37.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	37.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	53.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	48.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	29.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	53.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	52.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	35.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	35.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	25.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	34.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 phi2)) (cos.f64 lambda1))))) R)
	35.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	27.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	55.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	53.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	37.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) phi2) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (sin.f64 phi1) phi2) (.f64 (sin.f64 phi1) phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) phi2))))))) R)
	30.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	42.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
	37.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi2) (sin.f64 phi1)))))) R)
	12.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
	23.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)) (*.f64 phi1 (sin.f64 phi2))))) R)
	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	32.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	30.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) R)
	53.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
▶	34.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	13.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda2 lambda2 (fma.f64 lambda1 lambda1 (.f64 lambda2 lambda1))))) (cos.f64 phi1)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))))) R)
	30.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	33.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1)))) R)
	23.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
▶	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	27.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
	30.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda1))))) R)
	13.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)))))) R)
✓	27.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	21.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
	17.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (neg.f64 lambda1)))))) R)
▶	18.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) R)
	12.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
	12.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)

Compiler

Compiled 3 872 to 3 591 computations (7.3% saved)

series128.0ms (1%)

Memory

-2.9MiB live, 331.6MiB allocated; 34ms collecting garbage

Counts

63 → 423

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
14.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (sin phi2) phi2 (sin phi1) phi1 (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)) (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (cos lambda2) (cos lambda1)) (cos lambda2) lambda2 (cos lambda1) lambda1 (cos phi2) (* (* (sin lambda2) (sin lambda1)) (cos phi2)) (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) (cos phi1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) (cos (+ (- lambda2 lambda1) phi1)) (+ (- lambda2 lambda1) phi1) (- lambda2 lambda1) (cos (- (- lambda2 lambda1) phi1)) (- (- lambda2 lambda1) phi1) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (+ (* lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (* (* (cos lambda1) lambda2) -1/2) (* (cos lambda1) lambda2) -1/2 (neg (sin lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (/ (PI) 2) (PI) (cos (- lambda1 lambda2)) (- lambda1 lambda2))
11.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (sin phi2) phi2 (sin phi1) phi1 (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)) (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (cos lambda2) (cos lambda1)) (cos lambda2) lambda2 (cos lambda1) lambda1 (cos phi2) (* (* (sin lambda2) (sin lambda1)) (cos phi2)) (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) (cos phi1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) (cos (+ (- lambda2 lambda1) phi1)) (+ (- lambda2 lambda1) phi1) (- lambda2 lambda1) (cos (- (- lambda2 lambda1) phi1)) (- (- lambda2 lambda1) phi1) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (+ (* lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (* (* (cos lambda1) lambda2) -1/2) (* (cos lambda1) lambda2) -1/2 (neg (sin lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (/ (PI) 2) (PI) (cos (- lambda1 lambda2)) (- lambda1 lambda2))
11.0ms	phi1	@	inf	((* (acos (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (sin phi2) phi2 (sin phi1) phi1 (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)) (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (cos lambda2) (cos lambda1)) (cos lambda2) lambda2 (cos lambda1) lambda1 (cos phi2) (* (* (sin lambda2) (sin lambda1)) (cos phi2)) (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) (cos phi1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) (cos (+ (- lambda2 lambda1) phi1)) (+ (- lambda2 lambda1) phi1) (- lambda2 lambda1) (cos (- (- lambda2 lambda1) phi1)) (- (- lambda2 lambda1) phi1) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (+ (* lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (* (* (cos lambda1) lambda2) -1/2) (* (cos lambda1) lambda2) -1/2 (neg (sin lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (/ (PI) 2) (PI) (cos (- lambda1 lambda2)) (- lambda1 lambda2))
11.0ms	lambda2	@	inf	((* (acos (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (sin phi2) phi2 (sin phi1) phi1 (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)) (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (cos lambda2) (cos lambda1)) (cos lambda2) lambda2 (cos lambda1) lambda1 (cos phi2) (* (* (sin lambda2) (sin lambda1)) (cos phi2)) (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) (cos phi1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) (cos (+ (- lambda2 lambda1) phi1)) (+ (- lambda2 lambda1) phi1) (- lambda2 lambda1) (cos (- (- lambda2 lambda1) phi1)) (- (- lambda2 lambda1) phi1) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (+ (* lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (* (* (cos lambda1) lambda2) -1/2) (* (cos lambda1) lambda2) -1/2 (neg (sin lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (/ (PI) 2) (PI) (cos (- lambda1 lambda2)) (- lambda1 lambda2))
10.0ms	lambda1	@	0	((* (acos (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (sin phi2) phi2 (sin phi1) phi1 (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1)) (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (cos lambda2) (cos lambda1)) (cos lambda2) lambda2 (cos lambda1) lambda1 (cos phi2) (* (* (sin lambda2) (sin lambda1)) (cos phi2)) (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) (cos phi1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) (cos (+ (- lambda2 lambda1) phi1)) (+ (- lambda2 lambda1) phi1) (- lambda2 lambda1) (cos (- (- lambda2 lambda1) phi1)) (- (- lambda2 lambda1) phi1) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (+ (* lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (* (* (cos lambda1) lambda2) -1/2) (* (cos lambda1) lambda2) -1/2 (neg (sin lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (/ (PI) 2) (PI) (cos (- lambda1 lambda2)) (- lambda1 lambda2))

rewrite213.0ms (1.7%)

Memory

-7.6MiB live, 279.6MiB allocated; 58ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1801	13507
0	1891	12863
0	8611	12368

Stop Event

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

Counts

486 → 568

Calls

Call 1

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

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

eval79.0ms (0.6%)

Memory: 26.7MiB live, 165.1MiB allocated; 9ms collecting garbage
Compiler: Compiled 11 885 to 4 538 computations (61.8% saved)

prune135.0ms (1.1%)

Memory

-23.0MiB live, 266.0MiB allocated; 16ms collecting garbage

Pruning

96 alts after pruning (92 fresh and 4 done)

	Pruned	Kept	Total
New	555	42	597
Fresh	9	50	59
Picked	4	1	5
Done	1	3	4
Total	569	96	665

Accuracy

95.6%

Counts

665 → 96

Alt Table

Click to see full alt table

Status	Accuracy	Program
	76.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	95.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2))) (cos.f64 phi1))))) R)
	44.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
	18.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))) R)
	37.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
	27.4%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	95.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2))) (cos.f64 phi1)))) R)
	95.1%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2))) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)))) (cos.f64 phi1)))) R)
	52.5%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
	45.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	76.1%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	35.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
	53.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (cos.f64 phi1)))) R)
	43.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
	76.0%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	75.9%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))) R)
	75.9%	(.f64 (acos.f64 (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	95.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (fma.f64 (sin.f64 (neg.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 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	55.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	40.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
	19.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
✓	95.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	55.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) #s(approx (* (cos lambda2) (cos lambda1)) (cos.f64 lambda2)))))) R)
	53.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) #s(approx (* (cos lambda2) (cos lambda1)) (cos.f64 lambda1)))))) R)
	95.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
	37.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	37.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	53.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	48.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	29.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	53.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	29.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	52.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	35.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	35.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	25.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	95.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	55.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	53.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	53.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	34.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 phi2)) (cos.f64 lambda1))))) R)
	35.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	27.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	37.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) phi2) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (sin.f64 phi1) phi2) (.f64 (sin.f64 phi1) phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) phi2))))))) R)
	30.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	42.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
	37.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi2) (sin.f64 phi1)))))) R)
	12.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
	36.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	23.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) R)
	30.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
	23.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)) (*.f64 phi1 (sin.f64 phi2))))) R)
	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	32.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	30.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) R)
	53.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	19.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))) #s(literal 2 binary64)))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (sin.f64 phi1)))) #s(literal 2 binary64)))) R)
	24.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 #s(approx (- (- lambda2 lambda1) phi1) (.f64 lambda2 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 phi1) lambda2))))))) #s(literal 2 binary64)))) R)
	23.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 #s(approx (- (- lambda2 lambda1) phi1) (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (-.f64 phi1 lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	29.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	23.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (*.f64 #s(literal -1 binary64) lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	23.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	23.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) lambda2)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 #s(approx (cos (+ (- lambda2 lambda1) phi1)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1 binary64) (.f64 phi1 (sin.f64 (-.f64 lambda2 lambda1)))))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	13.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda2 lambda2 (fma.f64 lambda1 lambda1 (.f64 lambda2 lambda1))))) (cos.f64 phi1)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))))) R)
	30.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	33.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1)))) R)
	14.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (sin.f64 (+.f64 (neg.f64 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (-.f64 (sin.f64 lambda1) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (*.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	23.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	11.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 lambda2))))) (cos.f64 phi1)))) R)
	9.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/2 binary64))))))))) (cos.f64 phi1)))) R)
	9.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2) (.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	12.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (+.f64 (/.f64 (cos.f64 lambda1) (*.f64 lambda2 lambda2)) (/.f64 (sin.f64 lambda1) lambda2)))))) (cos.f64 phi1)))) R)
	12.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))) (cos.f64 phi1)))) R)
	9.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 lambda1))))) (cos.f64 phi1)))) R)
	30.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	27.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
	27.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 lambda2 phi1)) (cos.f64 (-.f64 lambda2 phi1))))))) R)
	12.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	13.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)))))) R)
✓	27.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	21.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
✓	18.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) R)
	12.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
	12.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
	17.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)

Compiler

Compiled 5 474 to 3 906 computations (28.6% saved)

regimes446.0ms (3.6%)

Memory

8.1MiB live, 672.3MiB allocated; 51ms collecting garbage

Counts

152 → 1

Calls

Call 1

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

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)

Calls

10 calls:

57.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
52.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
46.0ms	(cos.f64 (-.f64 lambda1 lambda2))
46.0ms	phi1
45.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Results

Accuracy	Segments	Branch
95.2%	1	`(-.f64 lambda1 lambda2)`
95.2%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
95.2%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
95.2%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
95.2%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
95.2%	1	`R`
95.2%	1	`lambda1`
95.2%	1	`lambda2`
95.2%	1	`phi1`
95.2%	1	`phi2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes380.0ms (3.1%)

Memory

25.0MiB live, 775.4MiB allocated; 69ms collecting garbage

Counts

136 → 1

Calls

Call 1

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

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)

Calls

10 calls:

45.0ms	phi2
43.0ms	R
40.0ms	(cos.f64 (-.f64 lambda1 lambda2))
37.0ms	phi1
36.0ms	lambda2

Results

Accuracy	Segments	Branch
95.2%	1	`(-.f64 lambda1 lambda2)`
95.2%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
95.2%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
95.2%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
95.2%	1	`R`
95.2%	1	`lambda1`
95.2%	1	`phi2`
95.2%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
95.2%	1	`lambda2`
95.2%	1	`phi1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes453.0ms (3.7%)

Memory

36.9MiB live, 703.0MiB allocated; 110ms collecting garbage

Counts

135 → 3

Calls

Call 1

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

Outputs

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 #s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)

Calls

10 calls:

89.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
71.0ms	phi1
36.0ms	R
35.0ms	(-.f64 lambda1 lambda2)
34.0ms	lambda2

Results

Accuracy	Segments	Branch
76.1%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
76.1%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
80.2%	3	`(-.f64 lambda1 lambda2)`
76.1%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
76.1%	1	`R`
79.1%	2	`lambda1`
86.4%	3	`phi1`
85.5%	3	`phi2`
76.1%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
82.3%	3	`lambda2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes62.0ms (0.5%)

Memory

-7.3MiB live, 84.2MiB allocated; 6ms collecting garbage

Counts

126 → 3

Calls

Call 1

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

Outputs

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)

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

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)

Calls

1 calls:

55.0ms

phi1

Results

Accuracy	Segments	Branch
86.3%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes76.0ms (0.6%)

Memory

-7.1MiB live, 179.7MiB allocated; 15ms collecting garbage

Counts

122 → 3

Calls

Call 1

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

Outputs

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)

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

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)

Calls

2 calls:

37.0ms	phi1
33.0ms	phi2

Results

Accuracy	Segments	Branch
85.4%	3	`phi2`
76.1%	1	`phi1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes218.0ms (1.8%)

Memory

23.5MiB live, 592.3MiB allocated; 46ms collecting garbage

Counts

121 → 1

Calls

Call 1

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

Outputs
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)

Calls

6 calls:

49.0ms	R
35.0ms	phi2
34.0ms	phi1
32.0ms	(-.f64 lambda1 lambda2)
31.0ms	lambda1

Results

Accuracy	Segments	Branch
76.1%	1	`R`
76.1%	1	`phi1`
76.1%	1	`(-.f64 lambda1 lambda2)`
76.1%	1	`lambda1`
76.1%	1	`lambda2`
76.1%	1	`phi2`

Compiler

Compiled 8 to 31 computations (-287.5% saved)

regimes299.0ms (2.4%)

Memory

17.9MiB live, 493.6MiB allocated; 90ms collecting garbage

Counts

94 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (neg.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2) (.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/2 binary64))))))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (*.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 lambda2 phi1)) (cos.f64 (-.f64 lambda2 phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) lambda2)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 lambda1))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (-.f64 phi1 lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (*.f64 #s(literal -1 binary64) lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 #s(approx (- (- lambda2 lambda1) phi1) (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 #s(approx (- (- lambda2 lambda1) phi1) (.f64 lambda2 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 phi1) lambda2))))))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda2 lambda2 (fma.f64 lambda1 lambda1 (.f64 lambda2 lambda1))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 #s(approx (cos (+ (- lambda2 lambda1) phi1)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1 binary64) (.f64 phi1 (sin.f64 (-.f64 lambda2 lambda1)))))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (-.f64 (sin.f64 lambda1) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (sin.f64 (+.f64 (neg.f64 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (+.f64 (/.f64 (cos.f64 lambda1) (*.f64 lambda2 lambda2)) (/.f64 (sin.f64 lambda1) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)

Outputs

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

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

Calls

10 calls:

47.0ms	lambda1
47.0ms	phi1
26.0ms	R
26.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
25.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
59.6%	3	`(-.f64 lambda1 lambda2)`
57.8%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
57.0%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
57.0%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
55.4%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
76.1%	2	`lambda1`
70.0%	4	`phi2`
76.0%	2	`lambda2`
55.4%	1	`R`
65.8%	3	`phi1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes38.0ms (0.3%)

Memory

-18.1MiB live, 65.3MiB allocated; 13ms collecting garbage

Counts

90 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (neg.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2) (.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/2 binary64))))))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (*.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 lambda2 phi1)) (cos.f64 (-.f64 lambda2 phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) lambda2)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 lambda1))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (-.f64 phi1 lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (*.f64 #s(literal -1 binary64) lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 #s(approx (- (- lambda2 lambda1) phi1) (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 #s(approx (- (- lambda2 lambda1) phi1) (.f64 lambda2 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 phi1) lambda2))))))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda2 lambda2 (fma.f64 lambda1 lambda1 (.f64 lambda2 lambda1))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 #s(approx (cos (+ (- lambda2 lambda1) phi1)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1 binary64) (.f64 phi1 (sin.f64 (-.f64 lambda2 lambda1)))))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (-.f64 (sin.f64 lambda1) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (sin.f64 (+.f64 (neg.f64 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (+.f64 (/.f64 (cos.f64 lambda1) (*.f64 lambda2 lambda2)) (/.f64 (sin.f64 lambda1) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi2) (sin phi1)) (* (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos phi1))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)

Outputs

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

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

Calls

1 calls:

31.0ms

lambda1

Results

Accuracy	Segments	Branch
76.1%	2	`lambda1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes94.0ms (0.8%)

Memory

34.3MiB live, 163.7MiB allocated; 30ms collecting garbage

Counts

85 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (neg.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2) (.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/2 binary64))))))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (*.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 lambda2 phi1)) (cos.f64 (-.f64 lambda2 phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) lambda2)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 lambda1))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (-.f64 phi1 lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (*.f64 #s(literal -1 binary64) lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 #s(approx (- (- lambda2 lambda1) phi1) (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 #s(approx (- (- lambda2 lambda1) phi1) (.f64 lambda2 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 phi1) lambda2))))))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda2 lambda2 (fma.f64 lambda1 lambda1 (.f64 lambda2 lambda1))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 #s(approx (cos (+ (- lambda2 lambda1) phi1)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1 binary64) (.f64 phi1 (sin.f64 (-.f64 lambda2 lambda1)))))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (-.f64 (sin.f64 lambda1) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (sin.f64 (+.f64 (neg.f64 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (+.f64 (/.f64 (cos.f64 lambda1) (*.f64 lambda2 lambda2)) (/.f64 (sin.f64 lambda1) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Outputs

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

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

Calls

3 calls:

40.0ms	lambda1
28.0ms	lambda2
22.0ms	phi2

Results

Accuracy	Segments	Branch
67.6%	3	`phi2`
66.6%	2	`lambda2`
60.6%	2	`lambda1`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes107.0ms (0.9%)

Memory

-22.4MiB live, 215.9MiB allocated; 25ms collecting garbage

Counts

84 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (neg.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2) (.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (sin (+ (neg phi1) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/2 binary64))))))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (*.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 lambda2 phi1)) (cos.f64 (-.f64 lambda2 phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) lambda2)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 lambda1))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi1)))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (-.f64 phi1 lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 #s(approx (+ (- lambda2 lambda1) phi1) (*.f64 #s(literal -1 binary64) lambda1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 #s(approx (- (- lambda2 lambda1) phi1) (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 #s(approx (- (- lambda2 lambda1) phi1) (.f64 lambda2 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 phi1) lambda2))))))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda2 lambda1)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda2 lambda2 (fma.f64 lambda1 lambda1 (.f64 lambda2 lambda1))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 #s(approx (cos (+ (- lambda2 lambda1) phi1)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1 binary64) (.f64 phi1 (sin.f64 (-.f64 lambda2 lambda1)))))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (+ (* (* (cos lambda2) (cos lambda1)) (cos phi2)) (* (* (sin lambda2) (sin lambda1)) (cos phi2))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (cos (+ (- lambda2 lambda1) phi1)) (cos (- (- lambda2 lambda1) phi1))) 2) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 #s(approx (- ( (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1))) (-.f64 (sin.f64 lambda1) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (sin.f64 (+.f64 (neg.f64 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (+.f64 (/.f64 (cos.f64 lambda1) (*.f64 lambda2 lambda2)) (/.f64 (sin.f64 lambda1) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) #s(approx (+ ( lambda2 (- (* (* (cos lambda1) lambda2) -1/2) (neg (sin lambda1)))) (cos lambda1)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (fma.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Outputs

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

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

Calls

4 calls:

37.0ms	phi2
23.0ms	lambda2
21.0ms	lambda1
21.0ms	phi1

Results

Accuracy	Segments	Branch
47.6%	2	`lambda1`
58.8%	2	`phi1`
58.9%	2	`phi2`
48.2%	2	`lambda2`

Compiler

Compiled 4 to 20 computations (-400% saved)

regimes89.0ms (0.7%)

Memory

13.9MiB live, 158.8MiB allocated; 37ms collecting garbage

Counts

21 → 1

Calls

Call 1

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

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

Calls

10 calls:

31.0ms	(-.f64 lambda1 lambda2)
7.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
7.0ms	lambda2
6.0ms	phi1
6.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Results

Accuracy	Segments	Branch
44.5%	1	`lambda1`
44.5%	1	`lambda2`
44.5%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
44.5%	1	`R`
44.5%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
44.5%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
44.5%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
44.5%	1	`(-.f64 lambda1 lambda2)`
44.5%	1	`phi1`
44.5%	1	`phi2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes62.0ms (0.5%)

Memory

6.6MiB live, 149.7MiB allocated; 4ms collecting garbage

Counts

20 → 2

Calls

Call 1

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

Outputs

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

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

Calls

10 calls:

7.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
7.0ms	phi1
6.0ms	lambda1
6.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
6.0ms	R

Results

Accuracy	Segments	Branch
35.9%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
33.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
44.6%	2	`lambda1`
35.8%	2	`(-.f64 lambda1 lambda2)`
33.7%	1	`phi2`
33.7%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
33.7%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
33.7%	1	`R`
40.8%	2	`phi1`
44.5%	2	`lambda2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes24.0ms (0.2%)

Memory

-1.2MiB live, 42.4MiB allocated; 7ms collecting garbage

Counts

19 → 2

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

11.0ms	lambda2
5.0ms	phi1
5.0ms	lambda1

Results

Accuracy	Segments	Branch
37.9%	2	`phi1`
38.0%	2	`lambda2`
33.8%	2	`lambda1`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes66.0ms (0.5%)

Memory

11.9MiB live, 100.4MiB allocated; 25ms collecting garbage

Counts

16 → 2

Calls

Call 1

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

Outputs

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

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

Calls

9 calls:

18.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
13.0ms	phi1
5.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
5.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
5.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

Accuracy	Segments	Branch
27.5%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
27.5%	1	`R`
27.5%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
27.5%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
27.5%	1	`phi2`
34.7%	2	`(-.f64 lambda1 lambda2)`
34.7%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
29.5%	2	`phi1`
30.7%	3	`lambda2`

Compiler

Compiled 57 to 81 computations (-42.1% saved)

regimes18.0ms (0.1%)

Memory

-22.1MiB live, 23.9MiB allocated; 9ms collecting garbage

Counts

15 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

13.0ms	(cos.f64 (-.f64 lambda1 lambda2))
5.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
34.5%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
34.5%	2	`(-.f64 lambda1 lambda2)`

Compiler

Compiled 7 to 13 computations (-85.7% saved)

regimes27.0ms (0.2%)

Memory

1.3MiB live, 46.3MiB allocated; 9ms collecting garbage

Counts

9 → 1

Calls

Call 1

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

Outputs

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

Calls

6 calls:

11.0ms	phi2
3.0ms	(-.f64 lambda1 lambda2)
3.0ms	lambda2
3.0ms	phi1
3.0ms	lambda1

Results

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

Compiler

Compiled 11 to 33 computations (-200% saved)

regimes16.0ms (0.1%)

Memory

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

Counts

3 → 2

Calls

Call 1

Inputs

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

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

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

Outputs

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

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

Calls

10 calls:

2.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
2.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
2.0ms	(cos.f64 (-.f64 lambda1 lambda2))
2.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
1.0ms	phi2

Results

Accuracy	Segments	Branch
27.5%	2	`lambda1`
18.0%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
18.0%	1	`phi1`
18.0%	1	`(-.f64 lambda1 lambda2)`
18.0%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
18.0%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
18.0%	1	`R`
27.4%	2	`lambda2`
18.0%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
18.0%	1	`phi2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes19.0ms (0.2%)

Memory

-11.9MiB live, 33.7MiB allocated; 7ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Outputs

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

Calls

10 calls:

8.0ms	lambda1
2.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
2.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
1.0ms	R
1.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Results

Accuracy	Segments	Branch
17.6%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
17.6%	1	`(-.f64 lambda1 lambda2)`
17.6%	1	`phi1`
17.6%	1	`phi2`
17.6%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
17.6%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
17.6%	1	`R`
17.6%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
17.6%	1	`lambda2`
17.6%	1	`lambda1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

bsearch196.0ms (1.6%)

Memory

-27.1MiB live, 219.6MiB allocated; 116ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
53.0ms	1.2482952221790767e-14	5.901218418293434e-10
80.0ms	-1.6114048003391662e-8	-4.3749632930101266e-15

Samples

114.0ms	230×	1	valid
7.0ms	42×	0	valid

Compiler

Compiled 753 to 790 computations (-4.9% saved)

Precisions

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

ival-cos: 35.0ms (31.7% of total)

ival-mult!: 31.0ms (28.1% of total)

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

ival-acos: 14.0ms (12.7% of total)

adjust: 9.0ms (8.1% of total)

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

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

bsearch70.0ms (0.6%)

Memory

5.5MiB live, 147.1MiB allocated; 12ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
20.0ms	1.2482952221790767e-14	5.901218418293434e-10
45.0ms	-1.6114048003391662e-8	-4.3749632930101266e-15

Samples

50.0ms	128×	1	valid
6.0ms	32×	0	valid

Compiler

Compiled 889 to 892 computations (-0.3% saved)

Precisions

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

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

ival-sin: 14.0ms (28.2% of total)

adjust: 5.0ms (10.1% of total)

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

ival-acos: 5.0ms (10.1% of total)

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

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

bsearch103.0ms (0.8%)

Memory

30.3MiB live, 224.0MiB allocated; 9ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
31.0ms	2.8235633887729022e-11	6.166940203898082e-11
65.0ms	-2936.595917518864	-1.810846477952195e-11

Samples

79.0ms	204×	1	valid
6.0ms	36×	0	valid

Compiler

Compiled 682 to 700 computations (-2.6% saved)

Precisions

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

ival-cos: 31.0ms (40.9% of total)

ival-sin: 19.0ms (25.1% of total)

adjust: 8.0ms (10.6% of total)

ival-mult!: 8.0ms (10.6% of total)

ival-acos: 8.0ms (10.6% of total)

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

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

bsearch56.0ms (0.5%)

Memory

-25.9MiB live, 117.2MiB allocated; 5ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
51.0ms	-4.0688708457411206e-5	-1.5228318365078838e-10

Samples

35.0ms	91×	1	valid
9.0ms	53×	0	valid

Compiler

Compiled 436 to 457 computations (-4.8% saved)

Precisions

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

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

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

ival-acos: 5.0ms (12.8% of total)

adjust: 4.0ms (10.2% of total)

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-4.0688708457411206e-5	-1.5228318365078838e-10

Compiler

Compiled 490 to 511 computations (-4.3% saved)

bsearch55.0ms (0.4%)

Memory

21.9MiB live, 118.0MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
51.0ms	2.2394233866309334e-5	184.11039839096983

Samples

35.0ms	81×	1	valid
10.0ms	63×	0	valid

Compiler

Compiled 454 to 475 computations (-4.6% saved)

Precisions

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

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

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

ival-acos: 5.0ms (12.6% of total)

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

adjust: 3.0ms (7.5% of total)

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

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

bsearch57.0ms (0.5%)

Memory

-16.7MiB live, 124.9MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
52.0ms	6.166940203898082e-11	7.383760546650469e-7

Samples

44.0ms	111×	1	valid
3.0ms	17×	0	valid

Compiler

Compiled 374 to 393 computations (-5.1% saved)

Precisions

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

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

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

adjust: 4.0ms (9.7% of total)

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

ival-acos: 4.0ms (9.7% of total)

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

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

bsearch41.0ms (0.3%)

Memory

-25.8MiB live, 76.3MiB allocated; 8ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
38.0ms	-4.0688708457411206e-5	-1.5228318365078838e-10

Samples

26.0ms	54×	1	valid
7.0ms	42×	0	valid

Compiler

Compiled 463 to 475 computations (-2.6% saved)

Precisions

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

ival-sin: 13.0ms (42.9% of total)

ival-cos: 10.0ms (33% of total)

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

ival-acos: 3.0ms (9.9% of total)

adjust: 2.0ms (6.6% of total)

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

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

bsearch54.0ms (0.4%)

Memory

22.2MiB live, 116.6MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
51.0ms	2.8388976992333806e-13	2.2394233866309334e-5

Samples

34.0ms	87×	1	valid
11.0ms	57×	0	valid

Compiler

Compiled 553 to 556 computations (-0.5% saved)

Precisions

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

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

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

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

ival-acos: 4.0ms (10.4% of total)

adjust: 3.0ms (7.8% of total)

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

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

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-2.28216682144683	-0.008481997987910784

Compiler

Compiled 22 to 25 computations (-13.6% 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.00012510088006734417	-4.0688708457411206e-5

Compiler

Compiled 22 to 25 computations (-13.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-4.0688708457411206e-5	-1.5228318365078838e-10

Compiler

Compiled 499 to 475 computations (4.8% saved)

derivations536.0ms (4.4%)

Memory

11.0MiB live, 685.5MiB allocated; 40ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 351 to 214 computations (39% saved)

preprocess463.0ms (3.8%)

Memory

0.6MiB live, 803.7MiB allocated; 58ms collecting garbage

Remove

(sort phi1 phi2)

(sort lambda1 lambda2)

(negabs R)

Compiler

Compiled 6 298 to 5 415 computations (14% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze727.0ms (5.9%)

sample5.1s (41.5%)

preprocess41.0ms (0.3%)

series83.0ms (0.7%)

rewrite237.0ms (1.9%)

eval33.0ms (0.3%)

prune35.0ms (0.3%)

series172.0ms (1.4%)

rewrite153.0ms (1.3%)

eval156.0ms (1.3%)

prune124.0ms (1%)

series155.0ms (1.3%)

rewrite306.0ms (2.5%)

eval120.0ms (1%)

prune141.0ms (1.1%)

series128.0ms (1%)

rewrite213.0ms (1.7%)

eval79.0ms (0.6%)

prune135.0ms (1.1%)

regimes446.0ms (3.6%)

regimes380.0ms (3.1%)

regimes453.0ms (3.7%)

regimes62.0ms (0.5%)

regimes76.0ms (0.6%)

regimes218.0ms (1.8%)

regimes299.0ms (2.4%)

regimes38.0ms (0.3%)

regimes94.0ms (0.8%)

regimes107.0ms (0.9%)

regimes89.0ms (0.7%)

regimes62.0ms (0.5%)

regimes24.0ms (0.2%)

regimes66.0ms (0.5%)

regimes18.0ms (0.1%)

regimes27.0ms (0.2%)

regimes16.0ms (0.1%)

regimes19.0ms (0.2%)

bsearch196.0ms (1.6%)

bsearch70.0ms (0.6%)

bsearch103.0ms (0.8%)

bsearch56.0ms (0.5%)

bsearch2.0ms (0%)

bsearch55.0ms (0.4%)

bsearch57.0ms (0.5%)

bsearch41.0ms (0.3%)

bsearch54.0ms (0.4%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch1.0ms (0%)

derivations536.0ms (4.4%)

preprocess463.0ms (3.8%)

end0.0ms (0%)

Profiling