Metrics for Spherical law of cosines

start0.0ms (0%)

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

analyze1.0s (7.2%)

Memory

17.6MiB live, 1 104.8MiB allocated; 226ms 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.2s (37%)

Memory

-8.8MiB live, 5 436.3MiB allocated; 2.0s collecting garbage

Samples

3.2s	6 315×	1	valid
758.0ms	34×	3	valid
473.0ms	1 815×	0	valid
66.0ms	92×	2	valid

Precisions

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

ival-cos: 2.0s (48.4% of total)

ival-sin: 921.0ms (22.5% of total)

ival-mult!: 448.0ms (10.9% of total)

adjust: 318.0ms (7.8% of total)

ival-acos: 275.0ms (6.7% of total)

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

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

Bogosity

preprocess55.0ms (0.4%)

Memory

-14.1MiB live, 37.8MiB allocated; 7ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	130	412
1	479	408
2	3787	408

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	69.3%	(.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)

series61.0ms (0.4%)

Memory

14.7MiB live, 60.1MiB allocated; 4ms 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
27.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)
3.0ms	lambda2	@	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)
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)

rewrite204.0ms (1.5%)

Memory

25.5MiB live, 293.0MiB allocated; 45ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	441	2705
0	458	2657
1	2623	2655
0	10153	2514

Stop Event

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

Counts

123 → 200

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

eval32.0ms (0.2%)

Memory: -1.0MiB live, 55.3MiB allocated; 16ms collecting garbage
Compiler: Compiled 3 207 to 1 249 computations (61.1% saved)

prune31.0ms (0.2%)

Memory

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

Pruning

31 alts after pruning (31 fresh and 0 done)

	Pruned	Kept	Total
New	156	31	187
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	157	31	188

Accuracy

94.2%

Counts

188 → 31

Alt Table

Click to see full alt table

Status	Accuracy	Program
	69.1%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.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 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	69.2%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	69.3%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	69.1%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda1 lambda2)) (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 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
▶	53.4%	(.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)
	30.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.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)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.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)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.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)
	40.1%	(.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)
	42.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)
▶	42.8%	(.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)
▶	94.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) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	34.7%	(.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)
	34.5%	(.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)
	58.6%	(.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)
	54.9%	(.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 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)))))) R)
	50.9%	(.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)
	43.2%	(.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)
	42.2%	(.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)
	39.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 lambda1 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
	50.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)) (cos.f64 lambda2))))) R)
▶	29.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	38.3%	(.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)
	40.8%	(.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)
	39.7%	(.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)
	50.7%	(.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)
	30.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	33.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	50.9%	(.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)
	38.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
▶	40.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)

Compiler

Compiled 1 516 to 1 376 computations (9.2% saved)

series195.0ms (1.4%)

Memory

-16.6MiB live, 268.0MiB allocated; 40ms collecting garbage

Counts

57 → 359

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

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

Calls

15 calls:

Time	Variable		Point	Expression
34.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 (- lambda1 lambda2)) (cos phi1)) (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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) -1/2 1 (* (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)))) (* (* (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 (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
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 (- lambda1 lambda2)) (cos phi1)) (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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) -1/2 1 (* (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)))) (* (* (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 (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
13.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 (- lambda1 lambda2)) (cos phi1)) (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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) -1/2 1 (* (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)))) (* (* (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 (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
11.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 (- lambda1 lambda2)) (cos phi1)) (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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) -1/2 1 (* (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)))) (* (* (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 (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
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 (- lambda1 lambda2)) (cos phi1)) (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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) -1/2 1 (* (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)))) (* (* (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 (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))

rewrite250.0ms (1.8%)

Memory

15.9MiB live, 298.7MiB allocated; 37ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1427	12029
0	1509	10670
0	8783	10262

Stop Event

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

Counts

416 → 561

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

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

eval94.0ms (0.7%)

Memory: 6.8MiB live, 147.6MiB allocated; 23ms collecting garbage
Compiler: Compiled 10 581 to 3 690 computations (65.1% saved)

prune84.0ms (0.6%)

Memory

-22.0MiB live, 172.9MiB allocated; 31ms collecting garbage

Pruning

67 alts after pruning (65 fresh and 2 done)

	Pruned	Kept	Total
New	556	49	605
Fresh	10	16	26
Picked	3	2	5
Done	0	0	0
Total	569	67	636

Accuracy

94.4%

Counts

636 → 67

Alt Table

Click to see full alt table

Status	Accuracy	Program
	69.1%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.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 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	69.2%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	29.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	40.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	69.3%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	69.1%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda1 lambda2)) (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 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	28.1%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	27.1%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	40.1%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.4%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.7%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.5%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 #s(approx (+ phi2 phi1) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.6%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 #s(approx (+ phi2 phi1) phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	38.8%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.3%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.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)))))) R)
	40.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)
	40.1%	(.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)
▶	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	42.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)
▶	19.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
✓	94.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) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	51.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) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	50.6%	(.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)
	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (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))))))) R)
	93.9%	(.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)
	34.7%	(.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)
	34.5%	(.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)
	50.9%	(.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)
	43.2%	(.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)
	50.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)) (cos.f64 lambda2))))) R)
	32.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	21.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
	18.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	17.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1)))))) R)
	17.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))))))) R)
	12.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	8.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	27.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	49.4%	(.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 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	54.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	38.3%	(.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)
	40.8%	(.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)
	56.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin 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)))))) R)
	39.7%	(.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)
	33.2%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi1)) (cos.f64 lambda1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	50.7%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (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)
	50.9%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (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)
	28.1%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	38.7%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
	54.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 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	30.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	33.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	33.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64)))) R)
▶	14.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	21.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
	28.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	28.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	40.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	17.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 phi1))))))) R)
	33.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi1)))) R)
	32.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) (cos.f64 phi1)))) R)
	30.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
	21.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1))) (cos.f64 phi1)))) R)
	23.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))) (cos.f64 phi1)))) R)
	31.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
▶	25.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Compiler

Compiled 3 531 to 3 289 computations (6.9% saved)

series314.0ms (2.3%)

Memory

34.7MiB live, 387.6MiB allocated; 112ms collecting garbage

Counts

68 → 458

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
84.0ms	lambda2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (cos phi2) (sin (/ (PI) 2)) (+ (* (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 (- lambda1 lambda2)) (cos phi1)) (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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) 3 (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (* (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)))) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) (* (* (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))
47.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (cos phi2) (sin (/ (PI) 2)) (+ (* (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 (- lambda1 lambda2)) (cos phi1)) (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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) 3 (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (* (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)))) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) (* (* (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))
41.0ms	phi2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (cos phi2) (sin (/ (PI) 2)) (+ (* (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 (- lambda1 lambda2)) (cos phi1)) (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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) 3 (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (* (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)))) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) (* (* (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))
20.0ms	lambda1	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (cos phi2) (sin (/ (PI) 2)) (+ (* (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 (- lambda1 lambda2)) (cos phi1)) (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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) 3 (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (* (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)))) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) (* (* (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))
20.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (cos phi2) (sin (/ (PI) 2)) (+ (* (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 (- lambda1 lambda2)) (cos phi1)) (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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) 3 (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (* (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)))) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) (* (* (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))

rewrite215.0ms (1.5%)

Memory

31.0MiB live, 308.7MiB allocated; 36ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1878	17706
0	1976	14816
0	8928	14178

Stop Event

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

Counts

526 → 655

Calls

Call 1

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

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

eval153.0ms (1.1%)

Memory: -59.8MiB live, 149.8MiB allocated; 119ms collecting garbage
Compiler: Compiled 14 246 to 4 493 computations (68.5% saved)

prune97.0ms (0.7%)

Memory

46.6MiB live, 192.8MiB allocated; 12ms collecting garbage

Pruning

88 alts after pruning (86 fresh and 2 done)

	Pruned	Kept	Total
New	611	33	644
Fresh	7	53	60
Picked	4	1	5
Done	1	1	2
Total	623	88	711

Accuracy

94.4%

Counts

711 → 88

Alt Table

Click to see full alt table

Status	Accuracy	Program
	69.1%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.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 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	69.2%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	29.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	40.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	25.8%	(.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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	19.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	69.3%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	69.1%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda1 lambda2)) (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 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	27.2%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	28.1%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	26.9%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	27.1%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.6%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 #s(approx (+ (neg phi1) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi1))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	28.3%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.7%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.6%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 #s(approx (+ phi2 phi1) phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.5%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	38.8%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.3%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.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)))))) R)
	19.6%	(.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)))) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.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)))) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.1%	(.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)
▶	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	42.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)
	19.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1))))) R)
✓	94.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) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	51.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) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	50.6%	(.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)
	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (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))))))) R)
	93.9%	(.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)
	34.7%	(.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)
	34.5%	(.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)
	50.9%	(.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)
	43.2%	(.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)
	50.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)) (cos.f64 lambda2))))) R)
	32.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	21.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
	18.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	17.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1)))))) R)
▶	17.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))))))) R)
▶	12.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	8.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	49.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	27.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	49.4%	(.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 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	54.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	38.3%	(.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)
	40.8%	(.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)
	56.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin 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)))))) R)
	39.7%	(.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)
	8.6%	(.f64 (acos.f64 (+.f64 (.f64 #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)))))) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.2%	(.f64 (acos.f64 (+.f64 #s(approx (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi1) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	50.7%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (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)
	50.9%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (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)
	28.1%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	38.7%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
	54.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 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	30.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	33.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	33.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64)))) R)
	8.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	8.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	11.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda1 lambda2 (*.f64 lambda2 lambda2))))) (cos.f64 phi1)))) R)
	9.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (.f64 (.f64 lambda2 lambda2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 lambda1) lambda2))) lambda2))))))) (cos.f64 phi1)))) R)
	9.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)))))) (cos.f64 phi1)))) R)
	9.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 lambda2 lambda2)))) (cos.f64 phi1)))) R)
	7.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 lambda1 lambda1)))) (cos.f64 phi1)))) R)
	4.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 3/2 binary64)) (pow.f64 lambda1 #s(literal 3/2 binary64))) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	21.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
	13.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 (.f64 lambda1 lambda1) lambda1)) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (.f64 (.f64 lambda2 lambda2) lambda2))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	28.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	28.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	33.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi1)))) R)
	30.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
	21.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1))) (cos.f64 phi1)))) R)
▶	23.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))) (cos.f64 phi1)))) R)
	31.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda2))))) R)
	7.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (.f64 (.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda2 (fma.f64 lambda1 lambda1 (*.f64 lambda2 lambda2)))))))) R)
✓	25.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
	18.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
▶	17.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1))))) R)
	12.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (-.f64 (cos.f64 lambda2) (.f64 #s(literal 1 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))))) R)

Compiler

Compiled 5 068 to 4 779 computations (5.7% saved)

series112.0ms (0.8%)

Memory

-10.3MiB live, 131.1MiB allocated; 18ms collecting garbage

Counts

67 → 283

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
23.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (cos phi2) (sin (/ (PI) 2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos 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 (- lambda1 lambda2)) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 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 (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1) (neg (sin 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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (- (/ 1 (* phi1 phi1)) 1/2) (* phi1 phi1)) (- (/ 1 (* phi1 phi1)) 1/2) (/ 1 (* phi1 phi1)) 1 (* phi1 phi1) 1/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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) -1/2)
18.0ms	lambda2	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (cos phi2) (sin (/ (PI) 2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos 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 (- lambda1 lambda2)) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 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 (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1) (neg (sin 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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (- (/ 1 (* phi1 phi1)) 1/2) (* phi1 phi1)) (- (/ 1 (* phi1 phi1)) 1/2) (/ 1 (* phi1 phi1)) 1 (* phi1 phi1) 1/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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) -1/2)
7.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (cos phi2) (sin (/ (PI) 2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos 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 (- lambda1 lambda2)) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 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 (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1) (neg (sin 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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (- (/ 1 (* phi1 phi1)) 1/2) (* phi1 phi1)) (- (/ 1 (* phi1 phi1)) 1/2) (/ 1 (* phi1 phi1)) 1 (* phi1 phi1) 1/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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) -1/2)
7.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (cos phi2) (sin (/ (PI) 2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos 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 (- lambda1 lambda2)) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 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 (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1) (neg (sin 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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (- (/ 1 (* phi1 phi1)) 1/2) (* phi1 phi1)) (- (/ 1 (* phi1 phi1)) 1/2) (/ 1 (* phi1 phi1)) 1 (* phi1 phi1) 1/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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) -1/2)
6.0ms	lambda2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (cos phi2) (sin (/ (PI) 2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos 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 (- lambda1 lambda2)) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 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 (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda2) (* (neg lambda1) (neg (sin lambda2)))) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1) (neg (sin 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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (- (/ 1 (* phi1 phi1)) 1/2) (* phi1 phi1)) (- (/ 1 (* phi1 phi1)) 1/2) (/ 1 (* phi1 phi1)) 1 (* phi1 phi1) 1/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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) -1/2)

rewrite282.0ms (2%)

Memory

-2.6MiB live, 227.2MiB allocated; 44ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1224	10418
0	1309	8313
1	7775	8313
0	8461	7890

Stop Event

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

Counts

350 → 535

Calls

Call 1

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

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

eval79.0ms (0.6%)

Memory: 19.5MiB live, 107.7MiB allocated; 16ms collecting garbage
Compiler: Compiled 12 418 to 3 858 computations (68.9% saved)

prune162.0ms (1.2%)

Memory

-7.6MiB live, 290.7MiB allocated; 49ms collecting garbage

Pruning

93 alts after pruning (90 fresh and 3 done)

	Pruned	Kept	Total
New	573	27	600
Fresh	18	63	81
Picked	4	1	5
Done	0	2	2
Total	595	93	688

Accuracy

94.4%

Counts

688 → 93

Alt Table

Click to see full alt table

Status	Accuracy	Program
	69.1%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.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 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	69.2%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	29.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	40.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	17.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1)))))) R)
	25.8%	(.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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	19.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	69.3%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	69.1%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda1 lambda2)) (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 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	27.2%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	28.1%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	27.1%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.6%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 #s(approx (+ (neg phi1) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi1))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	28.3%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.7%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.6%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 #s(approx (+ phi2 phi1) phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	38.8%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.3%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.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)))))) R)
	19.6%	(.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)))) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.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)))) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.1%	(.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)
	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	42.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)
	19.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1))))) R)
✓	94.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) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	51.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) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	50.6%	(.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)
	34.7%	(.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)
	34.5%	(.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)
	50.9%	(.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)
	43.2%	(.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)
	50.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)) (cos.f64 lambda2))))) R)
	32.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	18.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	17.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1)))))) R)
	6.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (*.f64 (sin.f64 lambda2) lambda1)))))) R)
	21.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (cos.f64 lambda2)))))) R)
	9.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) #s(literal 1 binary64)))))) R)
	12.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (-.f64 (pow.f64 phi1 #s(literal -2 binary64)) #s(literal 1/2 binary64)) (.f64 phi1 phi1)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	12.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	8.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1)))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	8.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	49.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	38.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	49.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	27.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	49.4%	(.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 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	54.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	56.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin 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)))))) R)
	39.7%	(.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)
	8.6%	(.f64 (acos.f64 (+.f64 (.f64 #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)))))) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.2%	(.f64 (acos.f64 (+.f64 #s(approx (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi1) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	17.8%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))))))) R)
	50.7%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (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)
	50.9%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (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)
	28.1%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	38.7%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
	30.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	33.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	54.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 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	8.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	11.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda1 lambda2 (*.f64 lambda2 lambda2))))) (cos.f64 phi1)))) R)
	9.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (.f64 (.f64 lambda2 lambda2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 lambda1) lambda2))) lambda2))))))) (cos.f64 phi1)))) R)
	9.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)))))) (cos.f64 phi1)))) R)
	9.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 lambda2 lambda2)))) (cos.f64 phi1)))) R)
	7.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 lambda1 lambda1)))) (cos.f64 phi1)))) R)
	4.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 3/2 binary64)) (pow.f64 lambda1 #s(literal 3/2 binary64))) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	21.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
	28.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	28.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	33.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi1)))) R)
	30.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
	21.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1))) (cos.f64 phi1)))) R)
	21.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (sin.f64 (+.f64 lambda2 (PI.f64)))))) (cos.f64 phi1)))) R)
	15.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	10.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
	23.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))) (cos.f64 phi1)))) R)
	23.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (*.f64 (+.f64 (/.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)) lambda1))) (cos.f64 phi1)))) R)
	11.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (*.f64 (sin.f64 lambda2) lambda1))) (cos.f64 phi1)))) R)
	31.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	18.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) #s(literal 1 binary64))) (cos.f64 phi1)))) R)
	13.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (sin.f64 (+.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	25.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
	18.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (neg.f64 lambda2)))))) R)
✓	17.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1))))) R)
	12.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (-.f64 (cos.f64 lambda2) (.f64 #s(literal 1 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))))) R)
	7.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos.f64 (/.f64 (fma.f64 (.f64 lambda1 lambda1) lambda1 (neg.f64 (.f64 (.f64 lambda2 lambda2) lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))))) R)

Compiler

Compiled 4 939 to 3 671 computations (25.7% saved)

regimes405.0ms (2.9%)

Memory

22.9MiB live, 716.0MiB allocated; 123ms collecting garbage

Counts

141 → 1

Calls

Call 1

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

Calls

10 calls:

56.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
41.0ms	(-.f64 lambda1 lambda2)
41.0ms	R
40.0ms	lambda1
39.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
94.1%	1	`(-.f64 lambda1 lambda2)`
94.1%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
94.1%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
94.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)))))`
94.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)`
94.1%	1	`R`
94.1%	1	`lambda1`
94.1%	1	`lambda2`
94.1%	1	`phi1`
94.1%	1	`phi2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes495.0ms (3.6%)

Memory

21.9MiB live, 628.2MiB allocated; 179ms collecting garbage

Counts

129 → 3

Calls

Call 1

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

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

Outputs

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

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

Calls

10 calls:

92.0ms	lambda1
71.0ms	R
66.0ms	phi1
63.0ms	(cos.f64 (-.f64 lambda1 lambda2))
34.0ms	phi2

Results

Accuracy	Segments	Branch
74.4%	2	`(-.f64 lambda1 lambda2)`
69.3%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
69.3%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
69.3%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
69.3%	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)`
69.3%	1	`R`
76.8%	3	`lambda1`
77.0%	3	`lambda2`
80.3%	3	`phi1`
83.2%	3	`phi2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes62.0ms (0.4%)

Memory

9.5MiB live, 48.9MiB allocated; 9ms collecting garbage

Counts

127 → 3

Calls

Call 1

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

Outputs

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

Calls

1 calls:

56.0ms

phi2

Results

Accuracy	Segments	Branch
83.0%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes38.0ms (0.3%)

Memory

18.5MiB live, 62.0MiB allocated; 4ms collecting garbage

Counts

123 → 3

Calls

Call 1

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

Outputs

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

Calls

1 calls:

32.0ms

phi2

Results

Accuracy	Segments	Branch
82.8%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes216.0ms (1.6%)

Memory

-21.6MiB live, 220.5MiB allocated; 25ms collecting garbage

Counts

118 → 1

Calls

Call 1

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

Outputs
(.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)

Calls

5 calls:

69.0ms	(-.f64 lambda1 lambda2)
48.0ms	lambda1
36.0ms	phi1
28.0ms	phi2
26.0ms	lambda2

Results

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

Compiler

Compiled 7 to 26 computations (-271.4% saved)

regimes432.0ms (3.1%)

Memory

-53.3MiB live, 457.7MiB allocated; 158ms collecting garbage

Counts

86 → 2

Calls

Call 1

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

Calls

10 calls:

151.0ms	(cos.f64 (-.f64 lambda1 lambda2))
44.0ms	lambda2
29.0ms	phi1
28.0ms	phi2
26.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
53.8%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
61.4%	3	`phi1`
54.8%	3	`(cos.f64 (-.f64 lambda1 lambda2))`
53.9%	2	`(-.f64 lambda1 lambda2)`
53.8%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
56.8%	3	`(.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)`
69.4%	2	`lambda1`
62.1%	4	`phi2`
56.8%	3	`R`
69.3%	2	`lambda2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes24.0ms (0.2%)

Memory

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

Counts

82 → 2

Calls

Call 1

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

19.0ms

lambda1

Results

Accuracy	Segments	Branch
69.4%	2	`lambda1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes57.0ms (0.4%)

Memory

-8.9MiB live, 81.3MiB allocated; 13ms collecting garbage

Counts

77 → 2

Calls

Call 1

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

Calls

2 calls:

24.0ms	lambda2
18.0ms	lambda1

Results

Accuracy	Segments	Branch
61.0%	2	`lambda2`
55.7%	2	`lambda1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes260.0ms (1.9%)

Memory

-4.1MiB live, 403.4MiB allocated; 89ms collecting garbage

Counts

76 → 2

Calls

Call 1

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

Outputs

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

Calls

10 calls:

35.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
34.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
34.0ms	lambda1
28.0ms	(-.f64 lambda1 lambda2)
25.0ms	R

Results

Accuracy	Segments	Branch
45.6%	3	`(cos.f64 (-.f64 lambda1 lambda2))`
40.8%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
40.8%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
45.4%	3	`(-.f64 lambda1 lambda2)`
42.6%	2	`(.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)`
42.6%	2	`R`
40.8%	1	`lambda1`
52.5%	2	`phi2`
52.9%	2	`phi1`
43.0%	2	`lambda2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes16.0ms (0.1%)

Memory

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

Counts

56 → 2

Calls

Call 1

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

Outputs

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

Calls

1 calls:

13.0ms

phi1

Results

Accuracy	Segments	Branch
52.7%	2	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes20.0ms (0.1%)

Memory

0.9MiB live, 45.5MiB allocated; 5ms collecting garbage

Counts

55 → 2

Calls

Call 1

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

Calls

1 calls:

16.0ms

phi1

Results

Accuracy	Segments	Branch
52.6%	2	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes89.0ms (0.6%)

Memory

-8.6MiB live, 139.1MiB allocated; 56ms 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 (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos 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 (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) #s(literal 1 binary64))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (sin.f64 (+.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1) (/.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 phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* 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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) 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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (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 (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos.f64 (/.f64 (fma.f64 (.f64 lambda1 lambda1) lambda1 (neg.f64 (.f64 (.f64 lambda2 lambda2) lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (.f64 (.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda2 (fma.f64 lambda1 lambda1 (*.f64 lambda2 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin 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 (cos.f64 #s(approx (- lambda1 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 lambda1 lambda2)) (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 lambda1 lambda2)) (cos.f64 phi1)))) R)

Calls

10 calls:

33.0ms	lambda2
8.0ms	(+.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	phi2
6.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)

Results

Accuracy	Segments	Branch
40.8%	1	`lambda1`
40.8%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
40.8%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
40.8%	1	`R`
40.8%	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)`
40.8%	1	`lambda2`
40.8%	1	`(-.f64 lambda1 lambda2)`
40.8%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
40.8%	1	`phi2`
40.8%	1	`phi1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes66.0ms (0.5%)

Memory

-17.2MiB live, 75.0MiB allocated; 5ms 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 (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos 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 (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) #s(literal 1 binary64))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (sin.f64 (+.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1) (/.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 phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* 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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) 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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (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 (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos.f64 (/.f64 (fma.f64 (.f64 lambda1 lambda1) lambda1 (neg.f64 (.f64 (.f64 lambda2 lambda2) lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (.f64 (.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda2 (fma.f64 lambda1 lambda1 (*.f64 lambda2 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin 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 (cos.f64 #s(approx (- lambda1 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 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)

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

Calls

10 calls:

12.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
10.0ms	(-.f64 lambda1 lambda2)
6.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
5.0ms	phi1
5.0ms	phi2

Results

Accuracy	Segments	Branch
40.8%	2	`lambda2`
33.4%	2	`(-.f64 lambda1 lambda2)`
33.7%	2	`R`
40.8%	2	`lambda1`
31.1%	1	`phi2`
33.2%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
33.7%	2	`(.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)`
37.6%	2	`phi1`
32.9%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
32.9%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes16.0ms (0.1%)

Memory

14.2MiB live, 14.2MiB allocated; 0ms 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 (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos 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 (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) #s(literal 1 binary64))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (sin.f64 (+.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1) (/.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 phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* 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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) 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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (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 (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos.f64 (/.f64 (fma.f64 (.f64 lambda1 lambda1) lambda1 (neg.f64 (.f64 (.f64 lambda2 lambda2) lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (.f64 (.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda2 (fma.f64 lambda1 lambda1 (*.f64 lambda2 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (cos.f64 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 (- lambda1 lambda2)) (cos phi1)) (*.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 (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Calls

3 calls:

5.0ms	lambda2
5.0ms	lambda1
5.0ms	phi1

Results

Accuracy	Segments	Branch
36.3%	2	`phi1`
36.3%	2	`lambda1`
33.5%	2	`lambda2`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes41.0ms (0.3%)

Memory

-6.1MiB live, 43.2MiB allocated; 8ms 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 (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos 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 (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) #s(literal 1 binary64))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (sin.f64 (+.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1) (/.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 phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* 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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) 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 (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (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 (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda2) ( (neg lambda1) (neg (sin lambda2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos.f64 (/.f64 (fma.f64 (.f64 lambda1 lambda1) lambda1 (neg.f64 (.f64 (.f64 lambda2 lambda2) lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (.f64 (.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda2 (fma.f64 lambda1 lambda1 (*.f64 lambda2 lambda2)))))))) R)

Outputs

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

Calls

6 calls:

18.0ms	lambda2
4.0ms	(-.f64 lambda1 lambda2)
4.0ms	phi1
4.0ms	lambda1
4.0ms	R

Results

Accuracy	Segments	Branch
33.2%	2	`(-.f64 lambda1 lambda2)`
30.3%	3	`lambda2`
25.9%	1	`R`
25.9%	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)`
29.4%	3	`lambda1`
33.1%	2	`phi1`

Compiler

Compiled 24 to 43 computations (-79.2% saved)

regimes8.0ms (0.1%)

Memory

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

Counts

12 → 2

Calls

Call 1

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

Outputs

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

Calls

2 calls:

3.0ms	(cos.f64 (-.f64 lambda1 lambda2))
3.0ms	(-.f64 lambda1 lambda2)

Results

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

Compiler

Compiled 7 to 13 computations (-85.7% saved)

regimes14.0ms (0.1%)

Memory

-13.3MiB live, 33.9MiB allocated; 1ms collecting garbage

Counts

3 → 1

Calls

Call 1

Inputs

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

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

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

Outputs

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

Calls

8 calls:

3.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
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	lambda2
2.0ms	(cos.f64 (-.f64 lambda1 lambda2))
2.0ms	phi1

Results

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

Compiler

Compiled 40 to 64 computations (-60% saved)

regimes21.0ms (0.1%)

Memory

0.0MiB live, 44.9MiB allocated; 6ms collecting garbage

Counts

2 → 2

Calls

Call 1

Inputs

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

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

Outputs

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

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

Calls

10 calls:

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)))))
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	R
1.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
1.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

Accuracy	Segments	Branch
18.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)`
18.4%	1	`R`
18.4%	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.4%	1	`(-.f64 lambda1 lambda2)`
18.4%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
18.4%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
25.9%	2	`lambda2`
25.9%	2	`lambda1`
18.4%	1	`phi2`
18.4%	1	`phi1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes39.0ms (0.3%)

Memory

2.8MiB live, 49.4MiB allocated; 4ms 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 (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1))))) R)

Outputs

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

Calls

10 calls:

21.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
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	lambda2

Results

Accuracy	Segments	Branch
17.1%	1	`(-.f64 lambda1 lambda2)`
17.1%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
17.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)))))`
17.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)`
17.1%	1	`R`
17.1%	1	`phi2`
17.1%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
17.1%	1	`phi1`
17.1%	1	`lambda2`
17.1%	1	`lambda1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

bsearch138.0ms (1%)

Memory

17.0MiB live, 255.8MiB allocated; 21ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
44.0ms	9.911770711607138e-5	0.0007966215303928376
87.0ms	-907.3975626660401	-6.889923777745759e-11

Samples

108.0ms	210×	1	valid
8.0ms	46×	0	valid

Compiler

Compiled 676 to 711 computations (-5.2% saved)

Precisions

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

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

ival-sin: 28.0ms (26.8% of total)

adjust: 15.0ms (14.4% of total)

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

ival-acos: 9.0ms (8.6% of total)

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

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

bsearch119.0ms (0.9%)

Memory

2.1MiB live, 189.8MiB allocated; 54ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
50.0ms	9.911770711607138e-5	0.0007966215303928376
62.0ms	-907.3975626660401	-6.889923777745759e-11

Samples

97.0ms	194×	1	valid
5.0ms	30×	0	valid

Compiler

Compiled 756 to 791 computations (-4.6% saved)

Precisions

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

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

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

adjust: 8.0ms (9.1% of total)

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

ival-mult!: 7.0ms (8% of total)

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

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

bsearch147.0ms (1.1%)

Memory

-10.7MiB live, 224.3MiB allocated; 29ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
57.0ms	1.7821636844313065e-17	9.347231210988237e-11
80.0ms	-1.8493053451747752e-12	-1.890544224568866e-31

Samples

116.0ms	253×	1	valid
8.0ms	51×	0	valid

Compiler

Compiled 877 to 899 computations (-2.5% saved)

Precisions

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

ival-cos: 50.0ms (44.5% of total)

ival-sin: 23.0ms (20.5% of total)

ival-acos: 12.0ms (10.7% of total)

adjust: 10.0ms (8.9% of total)

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

ival-sub!: 5.0ms (4.4% of total)

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

bsearch67.0ms (0.5%)

Memory

29.1MiB live, 121.9MiB allocated; 6ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
63.0ms	-293282.4521692711	-3.083948740463782e-14

Samples

45.0ms	105×	1	valid
10.0ms	55×	0	valid

Compiler

Compiled 472 to 495 computations (-4.9% saved)

Precisions

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

ival-cos: 20.0ms (40.4% of total)

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

adjust: 6.0ms (12.1% of total)

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

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-293282.4521692711	-3.083948740463782e-14

Compiler

Compiled 542 to 565 computations (-4.2% saved)

bsearch67.0ms (0.5%)

Memory

-10.8MiB live, 115.5MiB allocated; 33ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
64.0ms	6.021186701206745e-6	0.0006100984955222397

Samples

33.0ms	70×	1	valid
26.0ms	42×	0	valid

Compiler

Compiled 358 to 375 computations (-4.7% saved)

Precisions

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

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

ival-sin: 8.0ms (21.7% of total)

ival-acos: 7.0ms (19% of total)

adjust: 3.0ms (8.1% of total)

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

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

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

bsearch332.0ms (2.4%)

Memory

57.9MiB live, 301.3MiB allocated; 166ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
128.0ms	-0.9252909494806243	-6.054932031187122e-11

Samples

96.0ms	140×	1	valid
4.0ms	20×	0	valid

Compiler

Compiled 402 to 425 computations (-5.7% saved)

Precisions

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

ival-cos: 43.0ms (48.1% of total)

ival-sin: 23.0ms (25.7% of total)

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

adjust: 7.0ms (7.8% of total)

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

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

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

bsearch52.0ms (0.4%)

Memory

17.3MiB live, 66.2MiB allocated; 8ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
49.0ms	-0.9252909494806243	-6.054932031187122e-11

Samples

42.0ms	103×	1	valid
1.0ms	9×	0	valid

Compiler

Compiled 432 to 455 computations (-5.3% saved)

Precisions

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

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

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

adjust: 4.0ms (10.2% of total)

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

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-0.9252909494806243	-6.054932031187122e-11

Compiler

Compiled 462 to 485 computations (-5% saved)

bsearch64.0ms (0.5%)

Memory

-15.3MiB live, 69.3MiB allocated; 13ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
54.0ms	6.021186701206745e-6	0.0006100984955222397

Samples

37.0ms	57×	1	valid
11.0ms	39×	0	valid

Compiler

Compiled 365 to 354 computations (3% saved)

Precisions

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

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

ival-sin: 15.0ms (34.9% of total)

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

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

adjust: 3.0ms (7% of total)

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

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

bsearch137.0ms (1%)

Memory

14.1MiB live, 110.0MiB allocated; 53ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
133.0ms	-0.9252909494806243	-6.054932031187122e-11

Samples

119.0ms	128×	1	valid
6.0ms	16×	0	valid

Compiler

Compiled 532 to 495 computations (7% saved)

Precisions

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

ival-add!: 45.0ms (39% of total)

ival-cos: 26.0ms (22.5% of total)

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

adjust: 8.0ms (6.9% of total)

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

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

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

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-3340634516276.0967	-82707352.4265739

Compiler

Compiled 22 to 25 computations (-13.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-2.9943594071707636e-7	-3.020336599354795e-8

Compiler

Compiled 22 to 25 computations (-13.6% saved)

bsearch31.0ms (0.2%)

Memory

-3.5MiB live, 42.0MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
29.0ms	-1074657.3706376879	-293282.4521692711

Samples

19.0ms	43×	1	valid
7.0ms	37×	0	valid

Compiler

Compiled 377 to 360 computations (4.5% saved)

Precisions

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

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

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

adjust: 2.0ms (8.8% of total)

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

ival-acos: 2.0ms (8.8% of total)

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

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

derivations1.4s (10.3%)

Memory

-154.3MiB live, 424.0MiB allocated; 1.4s collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 317 to 209 computations (34.1% saved)

preprocess430.0ms (3.1%)

Memory

45.3MiB live, 805.2MiB allocated; 156ms collecting garbage

Remove

(sort phi1 phi2)

(sort lambda1 lambda2)

(negabs R)

Compiler

Compiled 6 474 to 5 450 computations (15.8% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.0s (7.2%)

sample5.2s (37%)

preprocess55.0ms (0.4%)

series61.0ms (0.4%)

rewrite204.0ms (1.5%)

eval32.0ms (0.2%)

prune31.0ms (0.2%)

series195.0ms (1.4%)

rewrite250.0ms (1.8%)

eval94.0ms (0.7%)

prune84.0ms (0.6%)

series314.0ms (2.3%)

rewrite215.0ms (1.5%)

eval153.0ms (1.1%)

prune97.0ms (0.7%)

series112.0ms (0.8%)

rewrite282.0ms (2%)

eval79.0ms (0.6%)

prune162.0ms (1.2%)

regimes405.0ms (2.9%)

regimes495.0ms (3.6%)

regimes62.0ms (0.4%)

regimes38.0ms (0.3%)

regimes216.0ms (1.6%)

regimes432.0ms (3.1%)

regimes24.0ms (0.2%)

regimes57.0ms (0.4%)

regimes260.0ms (1.9%)

regimes16.0ms (0.1%)

regimes20.0ms (0.1%)

regimes89.0ms (0.6%)

regimes66.0ms (0.5%)

regimes16.0ms (0.1%)

regimes41.0ms (0.3%)

regimes8.0ms (0.1%)

regimes14.0ms (0.1%)

regimes21.0ms (0.1%)

regimes39.0ms (0.3%)

bsearch138.0ms (1%)

bsearch119.0ms (0.9%)

bsearch147.0ms (1.1%)

bsearch67.0ms (0.5%)

bsearch2.0ms (0%)

bsearch67.0ms (0.5%)

bsearch332.0ms (2.4%)

bsearch52.0ms (0.4%)

bsearch2.0ms (0%)

bsearch64.0ms (0.5%)

bsearch137.0ms (1%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch31.0ms (0.2%)

derivations1.4s (10.3%)

preprocess430.0ms (3.1%)

end0.0ms (0%)

Profiling