Metrics for Spherical law of cosines

start0.0ms (0%)

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

analyze1.9s (13.3%)

Memory

-152.9MiB live, 1 396.8MiB allocated; 1.9s 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)

sample3.9s (27.4%)

Memory

141.7MiB live, 4 891.9MiB allocated; 673ms collecting garbage

Samples

3.0s	6 309×	1	valid
377.0ms	1 797×	0	valid
55.0ms	119×	2	valid
46.0ms	31×	3	valid

Precisions

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

ival-cos: 1.2s (39.8% of total)

ival-sin: 927.0ms (30% of total)

ival-mult!: 294.0ms (9.5% of total)

adjust: 286.0ms (9.3% of total)

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

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

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

Bogosity

preprocess43.0ms (0.3%)

Memory

-21.4MiB live, 37.0MiB allocated; 10ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	130	412
1	346	408
2	745	408
3	1755	408
4	3844	408

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Compiler

Compiled 34 to 34 computations (0% saved)

series36.0ms (0.3%)

Memory

33.4MiB live, 33.4MiB allocated; 0ms 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
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)
3.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)
3.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)

rewrite209.0ms (1.5%)

Memory

-10.5MiB live, 182.0MiB allocated; 30ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

Stop Event

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

Counts

123 → 198

Calls

Call 1

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

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

eval26.0ms (0.2%)

Memory: 0.4MiB live, 45.9MiB allocated; 3ms collecting garbage
Compiler: Compiled 3 102 to 1 243 computations (59.9% saved)

prune43.0ms (0.3%)

Memory

2.4MiB live, 48.5MiB allocated; 2ms collecting garbage

Pruning

47 alts after pruning (47 fresh and 0 done)

	Pruned	Kept	Total
New	140	47	187
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	141	47	188

Accuracy

96.1%

Counts

188 → 47

Alt Table

Click to see full alt table

Status	Accuracy	Program
	76.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	77.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	76.9%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	76.9%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	76.9%	(.f64 (acos.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	59.9%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	30.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	59.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	47.2%	(.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)
	46.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	77.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.8%	(.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)
	43.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	77.0%	(.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 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	95.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	95.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
▶	95.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	35.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	36.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	62.4%	(.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)
	54.4%	(.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)
	46.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 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	48.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
	44.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)) (fma.f64 lambda2 (-.f64 (.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1)))))) R)
	46.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 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
	29.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #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))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.6%	(.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.7%	(.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)
	55.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
▶	34.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	39.1%	(.f64 (acos.f64 (+.f64 (.f64 #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)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.3%	(.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)
	55.8%	(.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)
	46.5%	(.f64 (acos.f64 #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)))))) R)
	36.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi1 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2)) phi1)))) R)
	38.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	31.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	54.5%	(.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)
	46.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
▶	38.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)

Compiler

Compiled 2 350 to 2 162 computations (8% saved)

series139.0ms (1%)

Memory

-2.3MiB live, 188.0MiB allocated; 13ms collecting garbage

Counts

60 → 402

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite177.0ms (1.2%)

Memory

5.3MiB live, 186.8MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1634	15405
0	1732	12867
0	8396	12404

Stop Event

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

Counts

462 → 567

Calls

Call 1

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

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

eval87.0ms (0.6%)

Memory: -19.0MiB live, 124.5MiB allocated; 18ms collecting garbage
Compiler: Compiled 13 378 to 4 341 computations (67.6% saved)

prune99.0ms (0.7%)

Memory

46.4MiB live, 139.5MiB allocated; 4ms collecting garbage

Pruning

92 alts after pruning (92 fresh and 0 done)

	Pruned	Kept	Total
New	594	64	658
Fresh	14	28	42
Picked	5	0	5
Done	0	0	0
Total	613	92	705

Accuracy

96.3%

Counts

705 → 92

Alt Table

Click to see full alt table

Status	Accuracy	Program
	76.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	38.8%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	77.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	76.9%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	76.9%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	76.9%	(.f64 (acos.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	95.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	95.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	28.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	59.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #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 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	21.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) #s(approx (+ phi1 (/ (PI) 2)) phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (cos (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (neg.f64 (cos.f64 phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	59.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	47.2%	(.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)
	46.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	77.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.8%	(.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)
	52.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	23.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	43.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	77.0%	(.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 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	95.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	95.9%	(.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 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	95.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
	49.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 lambda2)))))))))) R)
	47.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/5040 binary64) (*.f64 lambda2 lambda2)))) #s(literal 1/6 binary64))))))))))) R)
	48.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/6 binary64))))))))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2)))))) R)
	44.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 lambda2))))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (.f64 lambda2 lambda2)))) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda2 lambda2)) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	55.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	54.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	36.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	20.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
	20.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
	54.4%	(.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)
	46.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 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #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))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	53.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.6%	(.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)
	46.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	38.7%	(.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.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))))) R)
	21.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))))) R)
	55.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	32.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	19.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (-.f64 (cos.f64 lambda2) (.f64 #s(literal 1 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))))) R)
	18.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))))))))) R)
▶	20.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)) (*.f64 #s(literal 1 binary64) (sin.f64 lambda1))))))))) R)
	29.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	21.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	39.1%	(.f64 (acos.f64 (+.f64 (.f64 #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)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	21.5%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.3%	(.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)
	24.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda2) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	55.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	54.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	46.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
	24.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2))))) R)
	46.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2))))) R)
	38.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	31.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	28.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64)))) R)
	13.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	26.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	26.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 phi1))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64)))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))))))) R)
	30.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi1)))) R)
	33.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1 binary64) (/.f64 lambda2 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 (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
	21.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1)))) (*.f64 #s(literal 1 binary64) (sin.f64 lambda1)))))) (cos.f64 phi1)))) R)
	21.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)) (.f64 #s(literal 1 binary64) (sin.f64 lambda1)))))) (cos.f64 phi1)))) R)
▶	22.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi1 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) R)
	26.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda2))))) R)
▶	24.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Compiler

Compiled 5 292 to 4 868 computations (8% saved)

series160.0ms (1.1%)

Memory

-43.2MiB live, 164.5MiB allocated; 99ms collecting garbage

Counts

71 → 467

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite192.0ms (1.3%)

Memory

33.2MiB live, 215.3MiB allocated; 17ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1976	18052
0	2080	16130
0	8494	15548

Stop Event

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

Counts

538 → 614

Calls

Call 1

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

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

eval98.0ms (0.7%)

Memory: -6.3MiB live, 137.8MiB allocated; 15ms collecting garbage
Compiler: Compiled 16 092 to 5 411 computations (66.4% saved)

prune124.0ms (0.9%)

Memory

-15.5MiB live, 177.5MiB allocated; 12ms collecting garbage

Pruning

110 alts after pruning (108 fresh and 2 done)

	Pruned	Kept	Total
New	700	38	738
Fresh	17	70	87
Picked	3	2	5
Done	0	0	0
Total	720	110	830

Accuracy

96.3%

Counts

830 → 110

Alt Table

Click to see full alt table

Status	Accuracy	Program
	95.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	76.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	42.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	38.8%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	24.1%	(.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)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	77.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
▶	96.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	76.9%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	76.9%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	95.9%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)) (-.f64 (.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
	76.9%	(.f64 (acos.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	84.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	84.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	59.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #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 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (cos (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (neg.f64 (cos.f64 phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.8%	(.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)
	23.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	43.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	77.0%	(.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 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	95.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	95.9%	(.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 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	49.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 lambda2)))))))))) R)
	47.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/5040 binary64) (*.f64 lambda2 lambda2)))) #s(literal 1/6 binary64))))))))))) R)
	48.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/6 binary64))))))))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2)))))) R)
	44.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 lambda2))))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (.f64 lambda2 lambda2)))) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda2 lambda2)) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	55.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	54.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	36.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	20.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
	54.4%	(.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)
▶	46.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 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
▶	36.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #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))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	53.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.6%	(.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)
	46.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	38.7%	(.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.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))))) R)
	21.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))))) R)
	55.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	32.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	19.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (-.f64 (cos.f64 lambda2) (.f64 #s(literal 1 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))))) R)
	19.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 #s(approx (+ ( -1/2 (* lambda2 (cos lambda1))) (* 1 (sin lambda1))) (*.f64 #s(literal -1/2 binary64) lambda2)))))))) R)
	20.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 #s(approx (+ ( -1/2 (* lambda2 (cos lambda1))) (* 1 (sin lambda1))) (sin.f64 lambda1)))))))) R)
	7.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(approx (+ (cos lambda1) (* lambda2 (+ (* -1/2 (* lambda2 (cos lambda1))) (* 1 (sin lambda1))))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2)))))))) R)
	10.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(approx (+ (cos lambda1) (* lambda2 (+ (* -1/2 (* lambda2 (cos lambda1))) (* 1 (sin lambda1))))) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))))) R)
	29.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	11.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)) (*.f64 #s(literal 1 binary64) (sin.f64 lambda1))))))))) R)
	29.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	41.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	11.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) #s(approx (+ phi1 (/ (PI) 2)) phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	32.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (cos (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (neg.f64 (cos.f64 phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	39.1%	(.f64 (acos.f64 (+.f64 (.f64 #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)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	21.5%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.3%	(.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)
	18.3%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	55.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	54.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	95.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
	54.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	46.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	24.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda2) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	24.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2))))) R)
	46.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2))))) R)
	38.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	31.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	28.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64)))) R)
	13.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	26.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	26.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 phi1))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64)))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))))))) R)
	30.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (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 (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
	24.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	26.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
✓	22.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	22.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 #s(approx (* (cos phi1) (sin lambda1)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi1 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) R)
	26.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	26.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda2))))) R)
	17.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	24.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))))) R)
	17.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	11.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
	21.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1))) (.f64 lambda2 (fma.f64 (cos.f64 phi1) (sin.f64 lambda1) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))))))) R)
	12.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1))) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))))))) R)
	15.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1))) (cos.f64 phi1))))) R)
	10.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))))) R)
▶	11.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))) R)
▶	15.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)

Compiler

Compiled 6 693 to 6 006 computations (10.3% saved)

series77.0ms (0.5%)

Memory

9.8MiB live, 106.2MiB allocated; 17ms collecting garbage

Counts

63 → 289

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
12.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (sin phi1) phi1 (sin phi2) phi2 (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (* (cos lambda1) (cos lambda2)) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) -1/2 (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) -1 (* (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)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (* phi1 phi1) 1/24 1/2 1 (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)))
7.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (sin phi1) phi1 (sin phi2) phi2 (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (* (cos lambda1) (cos lambda2)) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) -1/2 (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) -1 (* (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)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (* phi1 phi1) 1/24 1/2 1 (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)))
6.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (sin phi1) phi1 (sin phi2) phi2 (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (* (cos lambda1) (cos lambda2)) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) -1/2 (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) -1 (* (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)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (* phi1 phi1) 1/24 1/2 1 (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)))
6.0ms	lambda1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (sin phi1) phi1 (sin phi2) phi2 (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (* (cos lambda1) (cos lambda2)) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) -1/2 (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) -1 (* (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)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (* phi1 phi1) 1/24 1/2 1 (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)))
6.0ms	lambda2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (sin phi1) phi1 (sin phi2) phi2 (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (* (cos lambda1) (cos lambda2)) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) -1/2 (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) -1 (* (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)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (* phi1 phi1) 1/24 1/2 1 (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)))

rewrite213.0ms (1.5%)

Memory

-11.5MiB live, 220.4MiB allocated; 15ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1177	9153
0	1261	8408
1	7408	8408
0	8361	8056

Stop Event

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

Counts

352 → 536

Calls

Call 1

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

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

eval82.0ms (0.6%)

Memory: 3.4MiB live, 92.8MiB allocated; 10ms collecting garbage
Compiler: Compiled 10 882 to 4 395 computations (59.6% saved)

prune174.0ms (1.2%)

Memory

-4.8MiB live, 189.9MiB allocated; 14ms collecting garbage

Pruning

129 alts after pruning (126 fresh and 3 done)

	Pruned	Kept	Total
New	628	38	666
Fresh	15	88	103
Picked	4	1	5
Done	0	2	2
Total	647	129	776

Accuracy

96.4%

Counts

776 → 129

Alt Table

Click to see full alt table

Status	Accuracy	Program
	95.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	76.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	42.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	36.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 #s(approx (cos phi1) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) phi1) phi1 #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	38.8%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	24.1%	(.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)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	15.1%	(.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)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))) R)
	36.6%	(.f64 (acos.f64 (fma.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) phi1) phi1 #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	96.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 lambda1))))) R)
	96.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (sin.f64 lambda2))))) R)
	84.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	96.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (fma.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 lambda2) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	55.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	54.4%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	96.0%	(.f64 (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (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))))) R)
	46.5%	(.f64 (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	76.9%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	76.9%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	76.9%	(.f64 (acos.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	84.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	84.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	59.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #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 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (cos (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (neg.f64 (cos.f64 phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.8%	(.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)
	23.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	77.0%	(.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 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	95.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	95.9%	(.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 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	49.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 lambda2)))))))))) R)
	47.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/5040 binary64) (*.f64 lambda2 lambda2)))) #s(literal 1/6 binary64))))))))))) R)
	48.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/6 binary64))))))))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2)))))) R)
	44.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 lambda2))))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (.f64 lambda2 lambda2)))) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda2 lambda2)) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	55.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	54.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	36.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	20.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
	54.4%	(.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)
	46.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)) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) lambda1)))) (.f64 (.f64 (sin.f64 lambda1) lambda2) (.f64 (sin.f64 lambda1) lambda2))) (-.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) lambda2))))))) R)
	20.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda1 lambda2) lambda1 #s(literal 1 binary64))))))) R)
	22.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (fma.f64 lambda2 lambda1 #s(literal 1 binary64))))))) R)
	32.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(literal 1 binary64)))))) R)
	18.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
	25.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	9.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) #s(literal -1/720 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	53.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.6%	(.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)
	26.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	46.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	38.7%	(.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.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))))) R)
	21.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))))) R)
	55.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	32.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	19.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (-.f64 (cos.f64 lambda2) (.f64 #s(literal 1 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))))) R)
	19.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 #s(approx (+ ( -1/2 (* lambda2 (cos lambda1))) (* 1 (sin lambda1))) (*.f64 #s(literal -1/2 binary64) lambda2)))))))) R)
	7.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(approx (+ (cos lambda1) (* lambda2 (+ (* -1/2 (* lambda2 (cos lambda1))) (* 1 (sin lambda1))))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2)))))))) R)
	29.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	11.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)) (*.f64 #s(literal 1 binary64) (sin.f64 lambda1))))))))) R)
	29.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	41.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	11.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) #s(approx (+ phi1 (/ (PI) 2)) phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	32.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (cos (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (neg.f64 (cos.f64 phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 #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)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 #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)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	36.6%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	18.3%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	55.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	54.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	54.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	46.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (+ (* (* (cos phi1) (cos phi2)) (* (cos lambda1) (cos lambda2))) (* (* (cos phi1) (cos phi2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	24.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2)))) (cos (+ (+ phi2 (/ (PI) 2)) (+ phi1 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda2) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	24.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2))))) R)
	46.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2))))) R)
	38.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	31.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	28.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64)))) R)
	13.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	26.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	26.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 phi1))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64)))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))))))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	24.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	26.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
✓	22.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	22.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 #s(approx (* (cos phi1) (sin lambda1)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	26.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	26.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda2))))) R)
	17.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	24.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))))) R)
	17.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	21.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1))) (.f64 lambda2 (fma.f64 (cos.f64 phi1) (sin.f64 lambda1) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))))))) R)
	12.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1))) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))))))) R)
	15.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1))) (cos.f64 phi1))))) R)
	11.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) lambda1)))) (.f64 (.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2) (.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2))) (-.f64 (cos.f64 lambda1) (.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2))))))) R)
	12.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	12.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
✓	15.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
	11.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))))) R)
	2.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (fma.f64 (*.f64 lambda2 lambda2) #s(literal -1/2 binary64) #s(literal 1 binary64))))))) R)
	11.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))) R)
	1.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 (fma.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 lambda2)) #s(literal 1/2 binary64)) lambda1 lambda2) lambda1 (.f64 (.f64 lambda2 lambda2) #s(literal -1/2 binary64))) #s(literal 1 binary64))))))) R)
	2.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 (fma.f64 (.f64 lambda2 lambda2) #s(literal -1/2 binary64) (.f64 lambda2 lambda1)) #s(literal 1 binary64))))))) R)
	5.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (cos.f64 lambda1) lambda2)) (neg.f64 (sin.f64 lambda1))) lambda2))) (.f64 lambda2 lambda2))))))) R)
	9.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (.f64 (*.f64 lambda2 lambda2) (cos.f64 lambda1)) #s(literal -1/2 binary64))))))) R)
	2.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #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))))))) R)
	2.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #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))))))) R)
	4.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))) R)

Compiler

Compiled 6 965 to 4 961 computations (28.8% saved)

regimes557.0ms (3.9%)

Memory

31.2MiB live, 402.9MiB allocated; 37ms collecting garbage

Counts

188 → 1

Calls

Call 1

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

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

Outputs

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

Calls

10 calls:

71.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)
65.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
61.0ms	(-.f64 lambda1 lambda2)
60.0ms	(cos.f64 (-.f64 lambda1 lambda2))
58.0ms	R

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes513.0ms (3.6%)

Memory

6.6MiB live, 626.2MiB allocated; 60ms collecting garbage

Counts

178 → 1

Calls

Call 1

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

Outputs
(.f64 (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (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))))) R)

Outputs

(*.f64 (acos.f64 (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 lambda2) (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))))) R)

Calls

10 calls:

63.0ms	R
59.0ms	phi1
56.0ms	lambda2
50.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
48.0ms	lambda1

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes478.0ms (3.3%)

Memory

14.8MiB live, 667.1MiB allocated; 73ms collecting garbage

Counts

175 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

52.0ms	lambda1
52.0ms	phi2
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)))))
46.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
46.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
96.0%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
96.0%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
96.0%	1	`phi2`
96.0%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
96.0%	1	`lambda1`
96.0%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
96.0%	1	`phi1`
96.0%	1	`(-.f64 lambda1 lambda2)`
96.0%	1	`lambda2`
96.0%	1	`R`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes582.0ms (4.1%)

Memory

-24.1MiB live, 708.4MiB allocated; 99ms collecting garbage

Counts

173 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

96.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)
78.0ms	R
70.0ms	phi1
54.0ms	lambda2
50.0ms	(-.f64 lambda1 lambda2)

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes451.0ms (3.2%)

Memory

-0.5MiB live, 715.6MiB allocated; 63ms collecting garbage

Counts

159 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

60.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
48.0ms	lambda2
45.0ms	phi1
42.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
42.0ms	(-.f64 lambda1 lambda2)

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes447.0ms (3.1%)

Memory

35.7MiB live, 796.3MiB allocated; 84ms collecting garbage

Counts

158 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

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

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes71.0ms (0.5%)

Memory

-17.1MiB live, 72.5MiB allocated; 12ms collecting garbage

Counts

149 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

58.0ms

phi1

Results

Accuracy	Segments	Branch
85.0%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes88.0ms (0.6%)

Memory

13.9MiB live, 163.5MiB allocated; 29ms collecting garbage

Counts

134 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

2 calls:

46.0ms	phi2
36.0ms	phi1

Results

Accuracy	Segments	Branch
84.7%	3	`phi2`
77.0%	1	`phi1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes162.0ms (1.1%)

Memory

17.6MiB live, 298.5MiB allocated; 46ms collecting garbage

Counts

133 → 1

Calls

Call 1

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

Calls

4 calls:

42.0ms	phi2
40.0ms	lambda2
38.0ms	phi1
35.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
77.0%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
77.0%	1	`lambda2`
77.0%	1	`phi1`
77.0%	1	`phi2`

Compiler

Compiled 20 to 32 computations (-60% saved)

regimes317.0ms (2.2%)

Memory

-43.0MiB live, 502.2MiB allocated; 63ms collecting garbage

Counts

103 → 3

Calls

Call 1

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

Outputs

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

Calls

10 calls:

46.0ms	(cos.f64 (-.f64 lambda1 lambda2))
41.0ms	(-.f64 lambda1 lambda2)
29.0ms	R
29.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)
28.0ms	lambda2

Results

Accuracy	Segments	Branch
61.4%	3	`(cos.f64 (-.f64 lambda1 lambda2))`
60.7%	3	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
58.8%	2	`(-.f64 lambda1 lambda2)`
62.3%	4	`R`
60.7%	3	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
77.0%	3	`lambda1`
62.2%	4	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
76.8%	3	`lambda2`
70.1%	4	`phi1`
68.0%	3	`phi2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes43.0ms (0.3%)

Memory

-4.7MiB live, 41.3MiB allocated; 3ms collecting garbage

Counts

99 → 3

Calls

Call 1

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

Calls

1 calls:

24.0ms

lambda1

Results

Accuracy	Segments	Branch
77.0%	3	`lambda1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes32.0ms (0.2%)

Memory

11.5MiB live, 60.5MiB allocated; 6ms collecting garbage

Counts

92 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

27.0ms

lambda1

Results

Accuracy	Segments	Branch
77.0%	3	`lambda1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes107.0ms (0.7%)

Memory

19.5MiB live, 211.0MiB allocated; 18ms collecting garbage

Counts

90 → 3

Calls

Call 1

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

Calls

4 calls:

27.0ms	phi2
27.0ms	lambda2
25.0ms	lambda1
23.0ms	phi1

Results

Accuracy	Segments	Branch
64.2%	3	`phi2`
66.5%	3	`phi1`
65.1%	3	`lambda2`
61.6%	4	`lambda1`

Compiler

Compiled 4 to 20 computations (-400% saved)

regimes77.0ms (0.5%)

Memory

11.4MiB live, 146.4MiB allocated; 10ms collecting garbage

Counts

89 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

3 calls:

25.0ms	phi2
24.0ms	phi1
23.0ms	lambda2

Results

Accuracy	Segments	Branch
62.5%	3	`phi2`
47.9%	2	`lambda2`
59.6%	2	`phi1`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes25.0ms (0.2%)

Memory

-18.1MiB live, 37.4MiB allocated; 5ms collecting garbage

Counts

73 → 3

Calls

Call 1

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

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

Calls

1 calls:

21.0ms

phi2

Results

Accuracy	Segments	Branch
62.4%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes52.0ms (0.4%)

Memory

22.2MiB live, 111.6MiB allocated; 8ms collecting garbage

Counts

56 → 2

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

18.0ms	(cos.f64 (-.f64 lambda1 lambda2))
16.0ms	phi2
14.0ms	phi1

Results

Accuracy	Segments	Branch
59.6%	2	`phi1`
46.2%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
59.5%	2	`phi2`

Compiler

Compiled 6 to 17 computations (-183.3% saved)

regimes84.0ms (0.6%)

Memory

-10.8MiB live, 139.7MiB allocated; 17ms collecting garbage

Counts

25 → 1

Calls

Call 1

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

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

Calls

10 calls:

16.0ms	R
8.0ms	lambda1
8.0ms	phi1
7.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
7.0ms	(.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
38.9%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
38.9%	1	`lambda2`
38.9%	1	`lambda1`
38.9%	1	`(-.f64 lambda1 lambda2)`
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)`
38.9%	1	`R`
38.9%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
38.9%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
38.9%	1	`phi2`
38.9%	1	`phi1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes75.0ms (0.5%)

Memory

-8.0MiB live, 135.8MiB allocated; 11ms collecting garbage

Counts

24 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

9.0ms	phi2
8.0ms	lambda1
8.0ms	lambda2
7.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
7.0ms	(+.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
29.0%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
29.0%	1	`R`
29.0%	1	`phi2`
30.8%	2	`(-.f64 lambda1 lambda2)`
30.7%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
29.0%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
38.7%	3	`lambda2`
33.9%	2	`phi1`
29.0%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
38.9%	3	`lambda1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes22.0ms (0.2%)

Memory

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

Outputs

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

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

Calls

3 calls:

9.0ms	lambda1
6.0ms	phi1
6.0ms	lambda2

Results

Accuracy	Segments	Branch
33.9%	2	`phi1`
30.8%	3	`lambda2`
33.8%	3	`lambda1`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes62.0ms (0.4%)

Memory

-27.7MiB live, 116.0MiB allocated; 6ms collecting garbage

Counts

20 → 2

Calls

Call 1

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

Outputs

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

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

Calls

10 calls:

7.0ms	lambda2
7.0ms	lambda1
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)
6.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
6.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
24.2%	1	`lambda2`
24.2%	1	`R`
24.2%	1	`phi2`
24.2%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
24.2%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
24.2%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
28.7%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
28.7%	3	`(-.f64 lambda1 lambda2)`
24.2%	1	`lambda1`
28.9%	2	`phi1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes45.0ms (0.3%)

Memory

5.9MiB live, 52.9MiB allocated; 2ms collecting garbage

Counts

9 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

16.0ms	R
3.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
3.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
3.0ms	lambda1
3.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
17.0%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
17.0%	1	`R`
17.0%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
17.0%	1	`phi2`
24.0%	3	`lambda2`
17.0%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
24.2%	3	`lambda1`
21.6%	3	`(-.f64 lambda1 lambda2)`
21.5%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
25.3%	3	`phi1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes9.0ms (0.1%)

Memory

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

Outputs

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

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

Calls

3 calls:

3.0ms	lambda1
3.0ms	lambda2
3.0ms	phi1

Results

Accuracy	Segments	Branch
21.7%	3	`lambda2`
15.4%	1	`lambda1`
21.7%	2	`phi1`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes43.0ms (0.3%)

Memory

0.2MiB live, 46.6MiB allocated; 1ms collecting garbage

Counts

7 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

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

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes27.0ms (0.2%)

Memory

15.1MiB live, 59.8MiB allocated; 4ms collecting garbage

Accuracy

Total -2.0b remaining (-3.2%)

Threshold costs -2b (-3.2%)

Counts

6 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

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

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

bsearch85.0ms (0.6%)

Memory

-29.3MiB live, 156.0MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
52.0ms	2.0803001915389113e-38	6.656289470301794e-35
25.0ms	-4.7186615475225625e+24	-3.5526267865376476e+24

Samples

64.0ms	144×	1	valid
5.0ms	32×	0	valid

Compiler

Compiled 483 to 508 computations (-5.2% saved)

Precisions

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

ival-cos: 25.0ms (40.1% of total)

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

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

adjust: 6.0ms (9.6% of total)

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

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

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

bsearch80.0ms (0.6%)

Memory

14.1MiB live, 112.5MiB allocated; 28ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.0803001915389113e-38	6.656289470301794e-35
74.0ms	-5.976060808779045e-12	-2.955441293806999e-17

Samples

64.0ms	121×	1	valid
4.0ms	23×	0	valid

Compiler

Compiled 955 to 924 computations (3.2% saved)

Precisions

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

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

ival-sin: 11.0ms (23.9% of total)

adjust: 5.0ms (10.9% of total)

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

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

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

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

bsearch102.0ms (0.7%)

Memory

-23.3MiB live, 171.9MiB allocated; 20ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
40.0ms	8.887823719200002e-8	1.215197933604843e-6
55.0ms	-2.920431963945343e-7	-5.894818893992875e-12

Samples

79.0ms	184×	1	valid
6.0ms	40×	0	valid

Compiler

Compiled 764 to 739 computations (3.3% saved)

Precisions

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

ival-cos: 33.0ms (43.2% of total)

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

adjust: 7.0ms (9.2% of total)

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

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

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

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

bsearch131.0ms (0.9%)

Memory

7.9MiB live, 242.6MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
62.0ms	4.9334442607282624e-18	1.5798246402686558e-5
59.0ms	-0.07117989167914357	-8.554634783133938e-20

Samples

85.0ms	207×	1	valid
22.0ms	113×	0	valid

Compiler

Compiled 1 062 to 1 105 computations (-4% saved)

Precisions

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

ival-cos: 38.0ms (40.3% of total)

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

ival-mult!: 9.0ms (9.5% of total)

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

adjust: 8.0ms (8.5% of total)

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

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

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.9334442607282624e-18	1.5798246402686558e-5
1.0ms	-0.07117989167914357	-8.554634783133938e-20

Compiler

Compiled 1 142 to 1 185 computations (-3.8% saved)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.9334442607282624e-18	1.5798246402686558e-5
1.0ms	-0.07117989167914357	-8.554634783133938e-20

Compiler

Compiled 1 062 to 1 105 computations (-4% saved)

bsearch2.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.0803001915389113e-38	6.656289470301794e-35
0.0ms	-4.7186615475225625e+24	-3.5526267865376476e+24

Compiler

Compiled 506 to 531 computations (-4.9% saved)

bsearch97.0ms (0.7%)

Memory

-4.0MiB live, 139.8MiB allocated; 11ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
27.0ms	0.14432347977282864	0.21373307577730824
65.0ms	-490.6534427267461	-2.920431963945343e-7

Samples

74.0ms	156×	1	valid
9.0ms	52×	0	valid

Compiler

Compiled 625 to 654 computations (-4.6% saved)

Precisions

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

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

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

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

adjust: 7.0ms (9.3% of total)

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

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

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

bsearch102.0ms (0.7%)

Memory

-23.7MiB live, 173.9MiB allocated; 19ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
49.0ms	0.0025635002103403656	0.10557864259248965
48.0ms	-490.6534427267461	-2.920431963945343e-7

Samples

77.0ms	163×	1	valid
9.0ms	61×	0	valid

Compiler

Compiled 904 to 907 computations (-0.3% saved)

Precisions

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

ival-cos: 25.0ms (37.8% of total)

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

adjust: 8.0ms (12.1% of total)

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

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

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

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

bsearch43.0ms (0.3%)

Memory

22.1MiB live, 65.9MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
40.0ms	-4.835315408221314e-8	-5.7421918958213145e-9

Samples

33.0ms	78×	1	valid
3.0ms	18×	0	valid

Compiler

Compiled 286 to 301 computations (-5.2% saved)

Precisions

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

ival-cos: 14.0ms (43.8% of total)

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

adjust: 3.0ms (9.4% of total)

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

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

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

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

bsearch61.0ms (0.4%)

Memory

12.9MiB live, 59.4MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.9334442607282624e-18	1.5798246402686558e-5
57.0ms	-8.554634783133938e-20	-2.805380285835364e-27

Samples

31.0ms	76×	1	valid
20.0ms	68×	0	valid

Compiler

Compiled 953 to 918 computations (3.7% saved)

Precisions

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

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

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

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

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

adjust: 3.0ms (6.5% of total)

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

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

bsearch79.0ms (0.6%)

Memory

-29.2MiB live, 109.5MiB allocated; 13ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
71.0ms	-870.1301411604542	-4.835315408221314e-8

Samples

58.0ms	121×	1	valid
6.0ms	39×	0	valid

Compiler

Compiled 532 to 495 computations (7% saved)

Precisions

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

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

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

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

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

adjust: 5.0ms (8.6% of total)

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

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

bsearch77.0ms (0.5%)

Memory

-0.9MiB live, 144.2MiB allocated; 14ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
68.0ms	-297489215663.15063	-870.1301411604542

Samples

54.0ms	111×	1	valid
8.0ms	33×	0	valid

Compiler

Compiled 544 to 493 computations (9.4% saved)

Precisions

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

ival-cos: 23.0ms (42.2% of total)

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

adjust: 5.0ms (9.2% of total)

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

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

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

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

bsearch104.0ms (0.7%)

Memory

39.1MiB live, 178.5MiB allocated; 27ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
57.0ms	-1.99021288407427e-183	-6.112808012478316e-186
42.0ms	-870.1301411604542	-4.835315408221314e-8

Samples

78.0ms	165×	1	valid
8.0ms	56×	0	valid
2.0ms	2×	2	valid
1.0ms	1×	3	valid

Compiler

Compiled 1 036 to 913 computations (11.9% saved)

Precisions

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

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

ival-mult!: 18.0ms (22.3% of total)

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

ival-acos: 10.0ms (12.4% of total)

adjust: 7.0ms (8.7% of total)

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-4.835315408221314e-8	-5.7421918958213145e-9

Compiler

Compiled 382 to 337 computations (11.8% saved)

derivations828.0ms (5.8%)

Memory

-28.5MiB live, 833.4MiB allocated; 84ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 484 to 268 computations (44.6% saved)

preprocess337.0ms (2.4%)

Memory

31.6MiB live, 793.8MiB allocated; 50ms collecting garbage

Remove

(sort phi1 phi2)

(negabs R)

Compiler

Compiled 5 681 to 4 653 computations (18.1% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.9s (13.3%)

sample3.9s (27.4%)

preprocess43.0ms (0.3%)

series36.0ms (0.3%)

rewrite209.0ms (1.5%)

eval26.0ms (0.2%)

prune43.0ms (0.3%)

series139.0ms (1%)

rewrite177.0ms (1.2%)

eval87.0ms (0.6%)

prune99.0ms (0.7%)

series160.0ms (1.1%)

rewrite192.0ms (1.3%)

eval98.0ms (0.7%)

prune124.0ms (0.9%)

series77.0ms (0.5%)

rewrite213.0ms (1.5%)

eval82.0ms (0.6%)

prune174.0ms (1.2%)

regimes557.0ms (3.9%)

regimes513.0ms (3.6%)

regimes478.0ms (3.3%)

regimes582.0ms (4.1%)

regimes451.0ms (3.2%)

regimes447.0ms (3.1%)

regimes71.0ms (0.5%)

regimes88.0ms (0.6%)

regimes162.0ms (1.1%)

regimes317.0ms (2.2%)

regimes43.0ms (0.3%)

regimes32.0ms (0.2%)

regimes107.0ms (0.7%)

regimes77.0ms (0.5%)

regimes25.0ms (0.2%)

regimes52.0ms (0.4%)

regimes84.0ms (0.6%)

regimes75.0ms (0.5%)

regimes22.0ms (0.2%)

regimes62.0ms (0.4%)

regimes45.0ms (0.3%)

regimes9.0ms (0.1%)

regimes43.0ms (0.3%)

regimes27.0ms (0.2%)

bsearch85.0ms (0.6%)

bsearch80.0ms (0.6%)

bsearch102.0ms (0.7%)

bsearch131.0ms (0.9%)

bsearch4.0ms (0%)

bsearch3.0ms (0%)

bsearch2.0ms (0%)

bsearch97.0ms (0.7%)

bsearch102.0ms (0.7%)

bsearch43.0ms (0.3%)

bsearch61.0ms (0.4%)

bsearch79.0ms (0.6%)

bsearch77.0ms (0.5%)

bsearch104.0ms (0.7%)

bsearch1.0ms (0%)

derivations828.0ms (5.8%)

preprocess337.0ms (2.4%)

end0.0ms (0%)

Profiling