Metrics for Spherical law of cosines

start0.0ms (0%)

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

analyze992.0ms (7.2%)

Memory

17.2MiB live, 1 267.4MiB allocated; 253ms 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)

sample4.4s (32.1%)

Memory

179.6MiB live, 6 238.2MiB allocated; 984ms collecting garbage

Samples

3.5s	6 309×	1	valid
358.0ms	1 815×	0	valid
60.0ms	107×	2	valid
32.0ms	25×	3	valid

Precisions

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

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

ival-sin: 1.0s (29.6% of total)

ival-mult!: 501.0ms (14.1% of total)

adjust: 315.0ms (8.9% of total)

ival-acos: 301.0ms (8.5% of total)

ival-add!: 74.0ms (2.1% of total)

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

Bogosity

preprocess55.0ms (0.4%)

Memory

-30.3MiB live, 63.4MiB allocated; 5ms 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
▶	70.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

25.3MiB live, 80.9MiB allocated; 31ms 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
25.0ms	phi1	@	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	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	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)

rewrite205.0ms (1.5%)

Memory

-31.3MiB live, 246.9MiB allocated; 15ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	441	2705
0	458	2646
1	1378	2555
2	5916	2555
0	8636	2555
0	8650	2415

Stop Event

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

Counts

123 → 243

Calls

Call 1

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

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

eval523.0ms (3.8%)

Memory: -25.9MiB live, 61.9MiB allocated; 972ms collecting garbage
Compiler: Compiled 3 202 to 1 497 computations (53.2% saved)

prune45.0ms (0.3%)

Memory

-24.0MiB live, 57.5MiB allocated; 7ms collecting garbage

Pruning

35 alts after pruning (35 fresh and 0 done)

	Pruned	Kept	Total
New	184	35	219
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	185	35	220

Accuracy

92.9%

Counts

220 → 35

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	70.3%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	51.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 phi2 lambda2) lambda1))) (cos.f64 phi1)) #s(literal 2 binary64)))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
▶	29.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.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)
	70.3%	(.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)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	41.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.7%	(.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)
	70.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
▶	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	38.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
▶	37.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	60.5%	(.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)
	52.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.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1)))))) R)
	45.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)
	43.5%	(.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 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
	44.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1))))))) R)
	52.6%	(.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)
	42.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	38.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	35.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) phi1) phi1 #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	52.6%	(.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)
	34.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) phi1 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	32.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	52.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)
	42.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
▶	38.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)

Compiler

Compiled 1 604 to 1 566 computations (2.4% saved)

series169.0ms (1.2%)

Memory

-12.9MiB live, 268.0MiB allocated; 14ms collecting garbage

Counts

67 → 446

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

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

Calls

15 calls:

Time	Variable		Point	Expression
25.0ms	lambda1	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos lambda2) lambda2 (cos lambda1) lambda1 (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (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) (* (+ (* (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) phi1) 1) phi1) (+ (* (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) phi1) 1) (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 (* phi1 phi1) 1/120 1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))) (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (+ (- lambda2 lambda1) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1))
21.0ms	phi2	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos lambda2) lambda2 (cos lambda1) lambda1 (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (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) (* (+ (* (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) phi1) 1) phi1) (+ (* (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) phi1) 1) (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 (* phi1 phi1) 1/120 1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))) (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (+ (- lambda2 lambda1) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1))
15.0ms	lambda1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos lambda2) lambda2 (cos lambda1) lambda1 (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (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) (* (+ (* (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) phi1) 1) phi1) (+ (* (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) phi1) 1) (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 (* phi1 phi1) 1/120 1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))) (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (+ (- lambda2 lambda1) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1))
14.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos lambda2) lambda2 (cos lambda1) lambda1 (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (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) (* (+ (* (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) phi1) 1) phi1) (+ (* (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) phi1) 1) (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 (* phi1 phi1) 1/120 1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))) (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (+ (- lambda2 lambda1) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1))
13.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos lambda2) lambda2 (cos lambda1) lambda1 (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (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) (* (+ (* (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) phi1) 1) phi1) (+ (* (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) phi1) 1) (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 (* phi1 phi1) 1/120 1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))) (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (+ (- lambda2 lambda1) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1))

rewrite246.0ms (1.8%)

Memory

46.2MiB live, 329.5MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1724	16571
0	1826	14414
1	5753	14414
0	8209	14414
0	8287	13523

Stop Event

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

Counts

513 → 760

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

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

eval99.0ms (0.7%)

Memory: 7.3MiB live, 193.4MiB allocated; 14ms collecting garbage
Compiler: Compiled 13 514 to 4 716 computations (65.1% saved)

prune88.0ms (0.6%)

Memory

-11.1MiB live, 180.0MiB allocated; 7ms collecting garbage

Pruning

77 alts after pruning (75 fresh and 2 done)

	Pruned	Kept	Total
New	664	61	725
Fresh	16	14	30
Picked	3	2	5
Done	0	0	0
Total	683	77	760

Accuracy

93.0%

Counts

760 → 77

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	35.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) phi1) phi1 #s(literal 1 binary64)) phi1)) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	38.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
	70.3%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	51.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 phi2 lambda2) lambda1))) (cos.f64 phi1)) #s(literal 2 binary64)))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	28.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	27.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) (.f64 (+.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1) phi2) #s(literal 1 binary64)) phi2)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 #s(approx (+ (/ (PI) 2) phi2) phi2) phi1)) (sin.f64 (+.f64 #s(approx (+ (/ (PI) 2) phi2) phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	35.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	28.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	19.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	74.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	44.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)
	70.3%	(.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)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	41.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.7%	(.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)
	70.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
▶	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
✓	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	52.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	38.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	20.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) (/ (PI) 2)) (neg.f64 lambda1)))))) R)
	20.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) (/ (PI) 2)) lambda2))))) R)
	52.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)
	44.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	52.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (cos.f64 lambda2))))) R)
	27.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	53.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	42.5%	(.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)
	50.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	38.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
	22.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1))))) R)
	24.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) phi1) phi1 #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
	24.9%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) phi1) phi1 #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	21.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) phi1) phi1 #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
	42.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) #s(approx (* (+ (* (* (- (* (* (+ (* -1/5040 (* phi1 phi1)) 1/120) phi1) phi1) 1/6) phi1) phi1) 1) phi1) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	52.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	23.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2) phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	32.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	52.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	28.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))))) R)
	27.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	25.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
	23.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
	42.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
	50.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1))))) R)
	34.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) phi1 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
	19.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
▶	19.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
	18.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
	31.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	27.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	38.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	33.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi1)))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1)))) R)
	22.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 lambda2 (-.f64 (.f64 (fma.f64 (.f64 (neg.f64 (sin.f64 lambda1)) lambda2) #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))) lambda2) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	20.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 lambda1 (-.f64 (.f64 (fma.f64 (.f64 (sin.f64 lambda2) lambda1) #s(literal -1/6 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	20.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 lambda1 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	21.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
▶	24.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)

Compiler

Compiled 4 301 to 4 153 computations (3.4% saved)

series108.0ms (0.8%)

Memory

-30.1MiB live, 210.1MiB allocated; 16ms collecting garbage

Counts

60 → 479

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
9.0ms	phi2	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda1) (cos lambda2)) (cos lambda1) (cos lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (- lambda1 lambda2) (/ (PI) 2) (PI) 2 (+ phi1 (/ (PI) 2)) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (cos (- lambda1 lambda2)))
8.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda1) (cos lambda2)) (cos lambda1) (cos lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (- lambda1 lambda2) (/ (PI) 2) (PI) 2 (+ phi1 (/ (PI) 2)) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (cos (- lambda1 lambda2)))
8.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda1) (cos lambda2)) (cos lambda1) (cos lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (- lambda1 lambda2) (/ (PI) 2) (PI) 2 (+ phi1 (/ (PI) 2)) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (cos (- lambda1 lambda2)))
8.0ms	lambda2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda1) (cos lambda2)) (cos lambda1) (cos lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (- lambda1 lambda2) (/ (PI) 2) (PI) 2 (+ phi1 (/ (PI) 2)) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (cos (- lambda1 lambda2)))
8.0ms	lambda2	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda1) (cos lambda2)) (cos lambda1) (cos lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (- lambda1 lambda2) (/ (PI) 2) (PI) 2 (+ phi1 (/ (PI) 2)) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (cos (- lambda1 lambda2)))

rewrite403.0ms (2.9%)

Memory

42.0MiB live, 506.4MiB allocated; 29ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1984	18136
0	2069	15599
1	6734	15599
0	8229	15599
0	16637	14721

Stop Event

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

Counts

539 → 773

Calls

Call 1

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

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

eval128.0ms (0.9%)

Memory: -23.7MiB live, 220.1MiB allocated; 42ms collecting garbage
Compiler: Compiled 16 179 to 5 109 computations (68.4% saved)

prune114.0ms (0.8%)

Memory

-4.7MiB live, 233.7MiB allocated; 6ms collecting garbage

Pruning

100 alts after pruning (98 fresh and 2 done)

	Pruned	Kept	Total
New	659	56	715
Fresh	28	42	70
Picked	4	1	5
Done	1	1	2
Total	692	100	792

Accuracy

93.2%

Counts

792 → 100

Alt Table

Click to see full alt table

Status	Accuracy	Program
	38.9%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))))) R)
	24.7%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))))))) R)
	52.5%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	38.9%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
	24.7%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
	19.2%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (/.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	35.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) phi1) phi1 #s(literal 1 binary64)) phi1)) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	52.6%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	38.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
	24.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	70.3%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	70.2%	(.f64 (acos.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))) R)
▶	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	28.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	27.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) (.f64 (+.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1) phi2) #s(literal 1 binary64)) phi2)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	19.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 #s(approx (+ (/ (PI) 2) phi2) phi2) phi1)) (sin.f64 (+.f64 #s(approx (+ (/ (PI) 2) phi2) phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	35.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	28.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	18.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) phi2)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) phi2)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) phi2)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	74.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	70.3%	(.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)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	70.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	38.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (/.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)))))) R)
	52.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)))))) R)
✓	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	92.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (fma.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))))))) R)
	92.6%	(.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 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))))))) R)
	20.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) (/ (PI) 2)) (neg.f64 lambda1)))))) R)
	20.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) (/ (PI) 2)) lambda2))))) R)
	52.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)
	44.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	50.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	53.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	42.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	38.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
	12.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.9%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) phi1) phi1 #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	21.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) phi1) phi1 #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	31.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	52.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	32.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	52.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	28.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	27.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	25.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
	23.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
	42.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
	25.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
	23.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
	32.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
	27.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
	50.6%	(.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 lambda1) (sin.f64 lambda2)) (cos.f64 phi1))))) R)
	34.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) phi1 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
	19.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))) R)
	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (-.f64 (+.f64 (PI.f64) phi1) lambda2)))) #s(literal 2 binary64)))) R)
	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (-.f64 (+.f64 (PI.f64) lambda1) lambda2)))) #s(literal 2 binary64)))) R)
	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (+.f64 (+.f64 (PI.f64) phi1) lambda1)))) #s(literal 2 binary64)))) R)
	15.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (*.f64 (-.f64 (/.f64 (+.f64 (+.f64 (PI.f64) phi1) lambda1) lambda2) #s(literal 1 binary64)) lambda2)))) #s(literal 2 binary64)))) R)
	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (neg.f64 lambda2)))) #s(literal 2 binary64)))) R)
▶	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1))) #s(literal 2 binary64)))) R)
	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)))) R)
	18.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 #s(approx (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 #s(approx (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (neg.f64 lambda2))) (cos.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
	19.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 #s(approx (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
	18.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
	31.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	27.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	22.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 lambda2 (-.f64 (.f64 (fma.f64 (.f64 (neg.f64 (sin.f64 lambda1)) lambda2) #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))) lambda2) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	21.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
	17.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 (+.f64 (PI.f64) lambda1) lambda2))) #s(literal 1/2 binary64))))) R)
	17.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (-.f64 (cos.f64 (+.f64 lambda2 phi1)) (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) lambda2))) #s(literal 1/2 binary64))))) R)
	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
	8.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda2 lambda2 (fma.f64 lambda1 lambda1 (*.f64 lambda2 lambda1)))))))) R)
	10.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)))))) R)
✓	24.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	21.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (*.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1)))))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (*.f64 (neg.f64 lambda2) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
	17.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (neg.f64 lambda1)))))) R)
▶	16.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) R)
	10.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (fma.f64 (.f64 (sin.f64 lambda2) lambda1) #s(literal -1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
	10.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)

Compiler

Compiled 6 956 to 5 917 computations (14.9% saved)

series110.0ms (0.8%)

Memory

31.9MiB live, 220.3MiB allocated; 7ms collecting garbage

Counts

63 → 496

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
11.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))))) (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))) (* (sin lambda1) (sin lambda2)) (sin lambda1) lambda1 (sin lambda2) lambda2 (* (cos phi2) (cos phi1)) (cos phi2) (cos phi1) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))) (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (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) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (- lambda1 lambda2) (/ (PI) 2) (PI) 2 (+ phi1 (/ (PI) 2)) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos phi1) 1 (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1) (cos (- lambda1 lambda2)))
10.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))))) (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))) (* (sin lambda1) (sin lambda2)) (sin lambda1) lambda1 (sin lambda2) lambda2 (* (cos phi2) (cos phi1)) (cos phi2) (cos phi1) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))) (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (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) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (- lambda1 lambda2) (/ (PI) 2) (PI) 2 (+ phi1 (/ (PI) 2)) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos phi1) 1 (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1) (cos (- lambda1 lambda2)))
9.0ms	lambda2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))))) (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))) (* (sin lambda1) (sin lambda2)) (sin lambda1) lambda1 (sin lambda2) lambda2 (* (cos phi2) (cos phi1)) (cos phi2) (cos phi1) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))) (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (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) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (- lambda1 lambda2) (/ (PI) 2) (PI) 2 (+ phi1 (/ (PI) 2)) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos phi1) 1 (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1) (cos (- lambda1 lambda2)))
9.0ms	phi2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))))) (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))) (* (sin lambda1) (sin lambda2)) (sin lambda1) lambda1 (sin lambda2) lambda2 (* (cos phi2) (cos phi1)) (cos phi2) (cos phi1) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))) (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (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) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (- lambda1 lambda2) (/ (PI) 2) (PI) 2 (+ phi1 (/ (PI) 2)) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos phi1) 1 (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1) (cos (- lambda1 lambda2)))
8.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))))) (+ (* (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1)))) (* (sin lambda1) (sin lambda2)) (sin lambda1) lambda1 (sin lambda2) lambda2 (* (cos phi2) (cos phi1)) (cos phi2) (cos phi1) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))) (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda2 lambda1)) (cos phi1)) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (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) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (- lambda1 lambda2) (/ (PI) 2) (PI) 2 (+ phi1 (/ (PI) 2)) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos phi1) 1 (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) (sin (- (+ (/ (PI) 2) phi2) phi1)) (- (+ (/ (PI) 2) phi2) phi1) (+ (/ (PI) 2) phi2) (sin (+ (+ (/ (PI) 2) phi2) phi1)) (+ (+ (/ (PI) 2) phi2) phi1) (cos (- lambda1 lambda2)))

rewrite450.0ms (3.3%)

Memory

-3.8MiB live, 554.4MiB allocated; 51ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	2110	19290
0	2190	17161
1	7210	17161
0	8706	17161
0	17631	16161

Stop Event

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

Counts

559 → 738

Calls

Call 1

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

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

eval115.0ms (0.8%)

Memory: 39.0MiB live, 225.5MiB allocated; 15ms collecting garbage
Compiler: Compiled 17 933 to 5 097 computations (71.6% saved)

prune213.0ms (1.6%)

Memory

-0.8MiB live, 335.3MiB allocated; 56ms collecting garbage

Pruning

116 alts after pruning (114 fresh and 2 done)

	Pruned	Kept	Total
New	690	41	731
Fresh	20	73	93
Picked	4	1	5
Done	1	1	2
Total	715	116	831

Accuracy

93.2%

Counts

831 → 116

Alt Table

Click to see full alt table

Status	Accuracy	Program
	92.4%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) #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 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))))) R)
	38.9%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))))) R)
	16.7%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))))))) R)
	92.5%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))) R)
	52.5%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	38.9%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) R)
	24.7%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
	31.5%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	16.7%	(.f64 (/.f64 (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))))) R)
	19.2%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	92.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))) R)
	35.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) phi1) phi1 #s(literal 1 binary64)) phi1)) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	52.6%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	38.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
	24.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	31.6%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	16.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))) R)
	92.7%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	92.7%	(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	70.3%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	92.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	70.2%	(.f64 (acos.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))) R)
	53.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(approx ( (cos phi2) (cos phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)))))) R)
	92.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 lambda1)) (cos.f64 phi1))))) R)
	28.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	18.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	18.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
	18.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) phi2)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) phi2)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	74.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	70.3%	(.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)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	70.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	38.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (/.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)))))) R)
	52.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)))))) R)
	92.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (fma.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))))))) R)
	92.6%	(.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 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))))))) R)
	20.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) (/ (PI) 2)) (neg.f64 lambda1)))))) R)
	20.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) (/ (PI) 2)) lambda2))))) R)
	52.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)
	44.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	50.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ (/ (PI) 2) phi2) phi1)) (sin (+ (+ (/ (PI) 2) phi2) phi1))) 2) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	53.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	42.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	38.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2))))) R)
	12.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1)) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi2) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	12.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi2) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.9%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) phi1) phi1 #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	53.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 lambda1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2))))) R)
	50.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (cos.f64 lambda1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	52.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (sin lambda1) (sin lambda2)) (* (cos phi2) (cos phi1))) (* (* (cos lambda2) (cos lambda1)) (* (cos phi2) (cos phi1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	16.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) lambda2)) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi2) lambda2))) #s(literal 2 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	17.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	17.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	22.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	52.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	31.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	32.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	28.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	27.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	25.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi2)))) R)
	23.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) (cos.f64 phi1)))) R)
	42.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
	23.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
	32.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
	27.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (/ (PI) 2))))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
	34.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) phi1 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1))) #s(literal 2 binary64)))) R)
	19.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
	7.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.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 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1))) #s(literal 2 binary64)))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))) R)
	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (+.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))) R)
	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (-.f64 (+.f64 (PI.f64) phi1) lambda2)))) #s(literal 2 binary64)))) R)
	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (-.f64 (+.f64 (PI.f64) lambda1) lambda2)))) #s(literal 2 binary64)))) R)
	15.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (*.f64 (-.f64 (/.f64 (+.f64 (+.f64 (PI.f64) phi1) lambda1) lambda2) #s(literal 1 binary64)) lambda2)))) #s(literal 2 binary64)))) R)
	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (neg.f64 lambda2)))) #s(literal 2 binary64)))) R)
	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)))) R)
	18.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 #s(approx (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
	20.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 #s(approx (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (neg.f64 phi1))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1))) #s(literal 2 binary64)))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 #s(approx (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (neg.f64 lambda2))) (cos.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
	19.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 #s(approx (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) (neg.f64 lambda2))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1))) #s(literal 2 binary64)))) R)
	19.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 #s(approx (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) R)
	19.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 (cos.f64 #s(approx (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) lambda1)) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1))) #s(literal 2 binary64)))) R)
	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (-.f64 #s(approx (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos.f64 (+.f64 lambda2 phi1))) (cos.f64 #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1))) #s(literal 2 binary64)))) R)
	18.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1))) #s(literal 2 binary64)))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))) R)
	31.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	19.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 #s(literal -2 binary64) (.f64 (sin.f64 (/.f64 (-.f64 (-.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) #s(approx (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64)))) R)
	27.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	22.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 lambda2 (-.f64 (.f64 (fma.f64 (.f64 (neg.f64 (sin.f64 lambda1)) lambda2) #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))) lambda2) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda2 lambda1) (/ (PI) 2))) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	21.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
	17.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (*.f64 (-.f64 (cos.f64 (+.f64 lambda2 phi1)) (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) lambda2))) #s(literal 1/2 binary64))))) R)
	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (- (cos (- (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ (- lambda1 lambda2) (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
	12.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	10.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)))))) R)
✓	24.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	21.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (*.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1)))))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) (*.f64 (neg.f64 lambda2) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
✓	16.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (cos.f64 #s(approx (- lambda2 lambda1) lambda2))))) R)
	10.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	10.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (fma.f64 (.f64 (sin.f64 lambda2) lambda1) #s(literal -1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
	10.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
	17.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)

Compiler

Compiled 8 325 to 4 906 computations (41.1% saved)

regimes532.0ms (3.9%)

Memory

1.3MiB live, 962.7MiB allocated; 90ms collecting garbage

Counts

194 → 1

Calls

Call 1

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

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

Calls

10 calls:

59.0ms	phi1
58.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
53.0ms	(-.f64 lambda1 lambda2)
52.0ms	(cos.f64 (-.f64 lambda1 lambda2))
51.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
92.7%	1	`(-.f64 lambda1 lambda2)`
92.7%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
92.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
92.7%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
92.7%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
92.7%	1	`R`
92.7%	1	`lambda1`
92.7%	1	`lambda2`
92.7%	1	`phi1`
92.7%	1	`phi2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes579.0ms (4.2%)

Memory

-34.4MiB live, 928.4MiB allocated; 139ms collecting garbage

Counts

168 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

129.0ms	R
63.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
52.0ms	lambda2
48.0ms	lambda1
47.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
81.1%	3	`phi1`
73.4%	2	`(-.f64 lambda1 lambda2)`
70.3%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
70.3%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
70.3%	1	`R`
75.5%	3	`lambda1`
75.9%	3	`lambda2`
82.2%	3	`phi2`
70.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)))))`
70.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)`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes55.0ms (0.4%)

Memory

25.3MiB live, 115.4MiB allocated; 13ms collecting garbage

Counts

162 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

47.0ms

phi2

Results

Accuracy	Segments	Branch
82.2%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes146.0ms (1.1%)

Memory

-23.4MiB live, 74.9MiB allocated; 18ms collecting garbage

Counts

160 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

76.0ms

phi2

Results

Accuracy	Segments	Branch
81.8%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes293.0ms (2.1%)

Memory

22.6MiB live, 499.1MiB allocated; 68ms collecting garbage

Counts

149 → 1

Calls

Call 1

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

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

Calls

7 calls:

46.0ms	lambda2
44.0ms	phi1
43.0ms	R
40.0ms	lambda1
38.0ms	phi2

Results

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

Compiler

Compiled 25 to 48 computations (-92% saved)

regimes389.0ms (2.8%)

Memory

38.2MiB live, 397.1MiB allocated; 76ms collecting garbage

Counts

111 → 2

Calls

Call 1

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

Calls

10 calls:

79.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
59.0ms	phi1
42.0ms	lambda2
31.0ms	R
31.0ms	lambda1

Results

Accuracy	Segments	Branch
55.2%	2	`(-.f64 lambda1 lambda2)`
58.3%	3	`(cos.f64 (-.f64 lambda1 lambda2))`
70.4%	2	`lambda2`
70.4%	2	`lambda1`
58.3%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
58.3%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
63.2%	3	`phi1`
54.8%	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)`
54.8%	2	`R`
64.5%	4	`phi2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes49.0ms (0.4%)

Memory

-25.6MiB live, 84.4MiB allocated; 36ms collecting garbage

Counts

103 → 2

Calls

Call 1

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

Calls

1 calls:

43.0ms

lambda2

Results

Accuracy	Segments	Branch
70.4%	2	`lambda2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes63.0ms (0.5%)

Memory

-12.0MiB live, 121.7MiB allocated; 16ms collecting garbage

Counts

101 → 2

Calls

Call 1

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

Calls

2 calls:

28.0ms	lambda1
27.0ms	lambda2

Results

Accuracy	Segments	Branch
57.3%	2	`lambda1`
62.6%	2	`lambda2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes234.0ms (1.7%)

Memory

52.2MiB live, 380.2MiB allocated; 37ms collecting garbage

Counts

100 → 3

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

53.0ms	lambda1
38.0ms	phi2
35.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
28.0ms	lambda2
27.0ms	phi1

Results

Accuracy	Segments	Branch
54.5%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
49.1%	3	`lambda1`
44.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)))))`
44.8%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
58.1%	3	`phi2`
57.9%	3	`phi1`
47.6%	3	`lambda2`

Compiler

Compiled 37 to 58 computations (-56.8% saved)

regimes101.0ms (0.7%)

Memory

-17.1MiB live, 79.8MiB allocated; 15ms collecting garbage

Counts

74 → 2

Calls

Call 1

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

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

Calls

2 calls:

23.0ms	phi1
18.0ms	phi2

Results

Accuracy	Segments	Branch
55.6%	2	`phi1`
55.6%	2	`phi2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes42.0ms (0.3%)

Memory

-16.9MiB live, 70.7MiB allocated; 8ms collecting garbage

Counts

21 → 2

Calls

Call 1

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

Outputs

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

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

Calls

6 calls:

9.0ms	phi1
8.0ms	(cos.f64 (-.f64 lambda1 lambda2))
6.0ms	(-.f64 lambda1 lambda2)
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
45.4%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
38.9%	1	`R`
38.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)`
45.4%	2	`(-.f64 lambda1 lambda2)`
45.6%	2	`phi1`
50.9%	2	`phi2`

Compiler

Compiled 27 to 45 computations (-66.7% saved)

regimes63.0ms (0.5%)

Memory

-2.9MiB live, 106.7MiB allocated; 25ms collecting garbage

Counts

20 → 2

Calls

Call 1

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

Outputs

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

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

Calls

8 calls:

17.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))))
6.0ms	lambda2
6.0ms	lambda1

Results

Accuracy	Segments	Branch
35.1%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
35.1%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
38.1%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
37.9%	2	`(-.f64 lambda1 lambda2)`
42.2%	2	`phi1`
40.7%	2	`lambda2`
42.1%	2	`lambda1`
43.1%	2	`phi2`

Compiler

Compiled 40 to 64 computations (-60% saved)

regimes39.0ms (0.3%)

Memory

38.1MiB live, 78.1MiB allocated; 9ms collecting garbage

Counts

18 → 3

Calls

Call 1

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

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

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

Calls

6 calls:

11.0ms	lambda1
5.0ms	lambda2
5.0ms	phi2
5.0ms	R
5.0ms	phi1

Results

Accuracy	Segments	Branch
31.7%	2	`R`
31.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)`
38.9%	2	`lambda2`
40.6%	3	`lambda1`
37.2%	3	`phi1`
38.9%	3	`phi2`

Compiler

Compiled 22 to 42 computations (-90.9% saved)

regimes18.0ms (0.1%)

Memory

-7.8MiB live, 37.8MiB allocated; 3ms collecting garbage

Counts

16 → 2

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

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

Results

Accuracy	Segments	Branch
38.1%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
36.8%	3	`lambda2`
37.3%	2	`lambda1`

Compiler

Compiled 6 to 17 computations (-183.3% saved)

regimes3.0ms (0%)

Memory

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

Counts

8 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

3.0ms

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

Results

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

Compiler

Compiled 4 to 7 computations (-75% saved)

regimes20.0ms (0.1%)

Memory

3.9MiB live, 50.4MiB allocated; 2ms collecting garbage

Counts

4 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

3.0ms	(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	(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	lambda1

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes23.0ms (0.2%)

Memory

-9.6MiB live, 44.0MiB allocated; 10ms collecting garbage

Counts

3 → 2

Calls

Call 1

Inputs

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

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

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

Outputs

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

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

Calls

10 calls:

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

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes7.0ms (0.1%)

Memory

-32.1MiB live, 13.4MiB allocated; 3ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Outputs

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

Calls

5 calls:

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

Results

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

Compiler

Compiled 35 to 48 computations (-37.1% saved)

bsearch114.0ms (0.8%)

Memory

6.3MiB live, 145.1MiB allocated; 9ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
72.0ms	8.431605885461564e-12	4.764701939540048e-7
36.0ms	-6.787891446084252e-8	-8.334141382986907e-9

Samples

68.0ms	183×	1	valid
6.0ms	41×	0	valid

Compiler

Compiled 708 to 697 computations (1.6% saved)

Precisions

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

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

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

adjust: 7.0ms (10.7% of total)

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

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

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	8.431605885461564e-12	4.764701939540048e-7
1.0ms	-6.787891446084252e-8	-8.334141382986907e-9

Compiler

Compiled 568 to 599 computations (-5.5% saved)

bsearch134.0ms (1%)

Memory

-7.9MiB live, 80.9MiB allocated; 9ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
82.0ms	8.431605885461564e-12	4.764701939540048e-7
30.0ms	-6.787891446084252e-8	-8.334141382986907e-9

Samples

99.0ms	147×	1	valid
5.0ms	29×	0	valid

Compiler

Compiled 638 to 655 computations (-2.7% saved)

Precisions

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

ival-mult!: 52.0ms (53.6% of total)

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

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

adjust: 6.0ms (6.2% of total)

ival-acos: 6.0ms (6.2% of total)

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

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

bsearch46.0ms (0.3%)

Memory

9.5MiB live, 54.2MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
43.0ms	1.6381540569091396e-9	2.0897015636382324e-7

Samples

23.0ms	71×	1	valid
15.0ms	41×	0	valid

Compiler

Compiled 414 to 431 computations (-4.1% saved)

Precisions

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

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

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

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

adjust: 3.0ms (8.9% of total)

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.6381540569091396e-9	2.0897015636382324e-7

Compiler

Compiled 386 to 403 computations (-4.4% saved)

bsearch154.0ms (1.1%)

Memory

14.2MiB live, 67.0MiB allocated; 10ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
151.0ms	0.21999986394137583	4.095076652939884

Samples

120.0ms	46×	0	valid
26.0ms	66×	1	valid

Compiler

Compiled 428 to 438 computations (-2.3% saved)

Precisions

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

ival-mult!: 116.0ms (82% of total)

ival-cos: 12.0ms (8.5% of total)

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

adjust: 3.0ms (2.1% of total)

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

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

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

bsearch130.0ms (0.9%)

Memory

-24.4MiB live, 173.7MiB allocated; 85ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
52.0ms	8.431605885461564e-12	4.764701939540048e-7
72.0ms	-24978706.9424508	-6.787891446084252e-8

Samples

74.0ms	176×	1	valid
5.0ms	32×	0	valid

Compiler

Compiled 950 to 979 computations (-3.1% saved)

Precisions

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

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

ival-sin: 18.0ms (25.4% of total)

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

adjust: 7.0ms (9.9% of total)

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	8.431605885461564e-12	4.764701939540048e-7

Compiler

Compiled 374 to 393 computations (-5.1% saved)

bsearch102.0ms (0.7%)

Memory

6.6MiB live, 92.9MiB allocated; 12ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
99.0ms	0.000341789530167457	1.0877966250660418

Samples

40.0ms	99×	1	valid
4.0ms	29×	0	valid

Compiler

Compiled 478 to 465 computations (2.7% saved)

Precisions

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

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

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

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

adjust: 4.0ms (10.2% of total)

ival-mult!: 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

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.000341789530167457	1.0877966250660418

Compiler

Compiled 510 to 489 computations (4.1% saved)

bsearch245.0ms (1.8%)

Memory

32.5MiB live, 223.6MiB allocated; 28ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
115.0ms	2.3434172772707217e-211	1.5145108816467977e-209
125.0ms	-32.19274865591378	-0.0012996248099291893

Samples

174.0ms	128×	1	valid
50.0ms	102×	0	valid
4.0ms	8×	2	valid
2.0ms	2×	3	valid

Compiler

Compiled 901 to 866 computations (3.9% saved)

Precisions

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

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

adjust: 55.0ms (30.3% of total)

ival-mult!: 40.0ms (22% of total)

ival-sin: 17.0ms (9.4% of total)

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

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

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

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9857001793688043	0.9872806286257938

Compiler

Compiled 22 to 25 computations (-13.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9857001793688043	0.9872806286257938

Compiler

Compiled 22 to 25 computations (-13.6% saved)

bsearch108.0ms (0.8%)

Memory

-20.8MiB live, 78.3MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
106.0ms	-5.5124212195863583e-8	-5.162855774058368e-9

Samples

61.0ms	62×	1	valid
41.0ms	34×	0	valid

Compiler

Compiled 340 to 325 computations (4.4% saved)

Precisions

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

ival-mult!: 41.0ms (41.8% of total)

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

ival-cos: 9.0ms (9.2% of total)

adjust: 3.0ms (3.1% of total)

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

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

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

derivations1.1s (8.2%)

Memory

16.0MiB live, 951.3MiB allocated; 100ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 405 to 210 computations (48.1% saved)

preprocess362.0ms (2.6%)

Memory

8.6MiB live, 1 060.1MiB allocated; 102ms collecting garbage

Remove

(sort phi1 phi2)

(negabs R)

Compiler

Compiled 7 174 to 5 681 computations (20.8% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze992.0ms (7.2%)

sample4.4s (32.1%)

preprocess55.0ms (0.4%)

series61.0ms (0.4%)

rewrite205.0ms (1.5%)

eval523.0ms (3.8%)

prune45.0ms (0.3%)

series169.0ms (1.2%)

rewrite246.0ms (1.8%)

eval99.0ms (0.7%)

prune88.0ms (0.6%)

series108.0ms (0.8%)

rewrite403.0ms (2.9%)

eval128.0ms (0.9%)

prune114.0ms (0.8%)

series110.0ms (0.8%)

rewrite450.0ms (3.3%)

eval115.0ms (0.8%)

prune213.0ms (1.6%)

regimes532.0ms (3.9%)

regimes579.0ms (4.2%)

regimes55.0ms (0.4%)

regimes146.0ms (1.1%)

regimes293.0ms (2.1%)

regimes389.0ms (2.8%)

regimes49.0ms (0.4%)

regimes63.0ms (0.5%)

regimes234.0ms (1.7%)

regimes101.0ms (0.7%)

regimes42.0ms (0.3%)

regimes63.0ms (0.5%)

regimes39.0ms (0.3%)

regimes18.0ms (0.1%)

regimes3.0ms (0%)

regimes20.0ms (0.1%)

regimes23.0ms (0.2%)

regimes7.0ms (0.1%)

bsearch114.0ms (0.8%)

bsearch3.0ms (0%)

bsearch134.0ms (1%)

bsearch46.0ms (0.3%)

bsearch2.0ms (0%)

bsearch154.0ms (1.1%)

bsearch130.0ms (0.9%)

bsearch2.0ms (0%)

bsearch102.0ms (0.7%)

bsearch2.0ms (0%)

bsearch245.0ms (1.8%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch108.0ms (0.8%)

derivations1.1s (8.2%)

preprocess362.0ms (2.6%)

end0.0ms (0%)

Profiling