Metrics for Spherical law of cosines

start0.0ms (0%)

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

analyze1.2s (8.8%)

Memory

-21.2MiB live, 1 126.7MiB allocated; 319ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 21 to 19 computations (9.5% saved)

sample5.2s (39.3%)

Memory

25.8MiB live, 5 336.5MiB allocated; 2.1s collecting garbage

Samples

4.0s	6 309×	1	valid
582.0ms	1 815×	0	valid
59.0ms	107×	2	valid
31.0ms	25×	3	valid

Precisions

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

ival-cos: 1.9s (47.7% of total)

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

adjust: 366.0ms (9.1% of total)

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

ival-acos: 303.0ms (7.6% of total)

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

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

Bogosity

preprocess66.0ms (0.5%)

Memory

-14.1MiB live, 32.5MiB allocated; 4ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	130	408
1	573	404
2	6434	404

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Symmetry

(negabs R)

(sort lambda1 lambda2)

(sort phi1 phi2)

Compiler

Compiled 34 to 34 computations (0% saved)

series43.0ms (0.3%)

Memory

24.2MiB live, 75.7MiB allocated; 3ms collecting garbage

Counts

17 → 98

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

Calls

15 calls:

Time	Variable		Point	Expression
8.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
4.0ms	phi2	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
4.0ms	lambda1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
3.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
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)

rewrite264.0ms (2%)

Memory

4.3MiB live, 280.3MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	433	2641
0	450	2587
1	3025	2585
0	9608	2436
1	26766	2436

Stop Event

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

Counts

115 → 227

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

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

eval31.0ms (0.2%)

Memory: 13.3MiB live, 59.6MiB allocated; 2ms collecting garbage
Compiler: Compiled 3 225 to 1 462 computations (54.7% saved)

prune59.0ms (0.4%)

Memory

-43.0MiB live, 64.4MiB allocated; 36ms collecting garbage

Pruning

33 alts after pruning (33 fresh and 0 done)

	Pruned	Kept	Total
New	175	33	208
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	176	33	209

Accuracy

92.9%

Counts

209 → 33

Alt Table

Click to see full alt table

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

Compiler

Compiled 1 706 to 1 508 computations (11.6% saved)

series94.0ms (0.7%)

Memory

24.9MiB live, 164.3MiB allocated; 12ms collecting garbage

Counts

54 → 233

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite221.0ms (1.7%)

Memory

13.7MiB live, 200.4MiB allocated; 52ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1076	7070
0	1154	6409
0	8251	6039
1	21506	6039

Stop Event

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

Counts

287 → 508

Calls

Call 1

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

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

eval72.0ms (0.5%)

Memory: -15.3MiB live, 117.1MiB allocated; 16ms collecting garbage
Compiler: Compiled 7 964 to 3 403 computations (57.3% saved)

prune81.0ms (0.6%)

Memory

-0.1MiB live, 148.6MiB allocated; 13ms collecting garbage

Pruning

71 alts after pruning (69 fresh and 2 done)

	Pruned	Kept	Total
New	498	49	547
Fresh	8	20	28
Picked	3	2	5
Done	0	0	0
Total	509	71	580

Accuracy

93.1%

Counts

580 → 71

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.1%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	70.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	43.4%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (fma.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	38.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
	70.3%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	70.2%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	70.2%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	70.2%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (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 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	29.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.3%	(.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)
	74.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	44.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	70.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	70.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
▶	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
✓	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	52.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	92.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))) R)
	92.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))) R)
	37.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	38.0%	(.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.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	42.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(approx (- 1 (/ lambda2 lambda1)) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)))))) R)
	44.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	43.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)) (/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (sin.f64 lambda2)) lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (sin.f64 lambda2)) lambda1) (.f64 (fma.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (sin.f64 lambda2)) lambda1) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))))))))) R)
	52.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
	23.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 (+ (* lambda1 (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2)))) (cos lambda2)) (+.f64 (fma.f64 (.f64 lambda1 lambda1) #s(literal -1/2 binary64) (.f64 lambda2 lambda1)) #s(literal 1 binary64))))))) R)
	22.1%	(.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 (+ (* lambda1 (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2)))) (cos lambda2)) (.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (cos.f64 lambda2) lambda1)) (neg.f64 (sin.f64 lambda2))) lambda1))) (.f64 lambda1 lambda1))))))) R)
	9.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 (+ (* lambda1 (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2)))) (cos lambda2)) (.f64 (.f64 (*.f64 lambda1 lambda1) (cos.f64 lambda2)) #s(literal -1/2 binary64))))))) R)
	42.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	58.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	35.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1) #s(literal -1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	25.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.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)
▶	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	30.3%	(.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) #s(approx (sin phi1) phi1))))) R)
	50.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	52.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	32.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	52.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
▶	12.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda2 lambda2 (fma.f64 lambda1 lambda1 (.f64 lambda2 lambda1))))) (cos.f64 phi1)))) R)
	20.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
	27.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	42.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) R)
✓	38.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	33.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi1)))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi1)))) R)
	22.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (fma.f64 (.f64 (neg.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))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	20.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (fma.f64 (.f64 (sin.f64 lambda2) lambda1) #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
	25.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
	23.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
▶	27.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
	21.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda2 lambda1)) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)

Compiler

Compiled 4 015 to 3 627 computations (9.7% saved)

series107.0ms (0.8%)

Memory

2.3MiB live, 197.0MiB allocated; 19ms collecting garbage

Counts

60 → 255

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite209.0ms (1.6%)

Memory

18.9MiB live, 249.9MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1243	8716
0	1324	8008
0	8455	7738
1	21903	7738

Stop Event

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

Counts

315 → 457

Calls

Call 1

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

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

eval74.0ms (0.6%)

Memory: 1.6MiB live, 147.1MiB allocated; 9ms collecting garbage
Compiler: Compiled 8 794 to 3 501 computations (60.2% saved)

prune100.0ms (0.8%)

Memory

10.6MiB live, 203.4MiB allocated; 7ms collecting garbage

Pruning

92 alts after pruning (89 fresh and 3 done)

	Pruned	Kept	Total
New	458	44	502
Fresh	19	45	64
Picked	4	1	5
Done	0	2	2
Total	481	92	573

Accuracy

93.2%

Counts

573 → 92

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.1%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	70.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	38.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
	92.7%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	52.3%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	52.6%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.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)
	27.7%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2)))))) R)
	70.3%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
▶	92.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	70.2%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	92.6%	(.f64 (acos.f64 (/.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)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) (-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	70.2%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	92.6%	(.f64 (acos.f64 (/.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)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
	70.2%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (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 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	29.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.3%	(.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)
	74.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	70.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	70.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
✓	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	92.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	92.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
	37.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	38.0%	(.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.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	42.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(approx (- 1 (/ lambda2 lambda1)) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)))))) R)
▶	44.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	43.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)) (/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (sin.f64 lambda2)) lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (sin.f64 lambda2)) lambda1) (.f64 (fma.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (sin.f64 lambda2)) lambda1) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))))))))) R)
	52.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
	23.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 (+ (* lambda1 (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2)))) (cos lambda2)) (+.f64 (fma.f64 (.f64 lambda1 lambda1) #s(literal -1/2 binary64) (.f64 lambda2 lambda1)) #s(literal 1 binary64))))))) R)
	22.1%	(.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 (+ (* lambda1 (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2)))) (cos lambda2)) (.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (cos.f64 lambda2) lambda1)) (neg.f64 (sin.f64 lambda2))) lambda1))) (.f64 lambda1 lambda1))))))) R)
	9.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 (+ (* lambda1 (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2)))) (cos lambda2)) (.f64 (.f64 (*.f64 lambda1 lambda1) (cos.f64 lambda2)) #s(literal -1/2 binary64))))))) R)
	53.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	30.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	42.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	58.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	35.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1) #s(literal -1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	25.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.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)
▶	52.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	42.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	24.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (sin.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	30.3%	(.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) #s(approx (sin phi1) phi1))))) R)
	50.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	32.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
▶	9.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (+.f64 (/.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (.f64 (.f64 lambda1 lambda1) lambda1)) (fma.f64 lambda2 lambda2 (.f64 lambda1 (+.f64 lambda1 lambda2)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))) R)
	9.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(approx (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))) (fma.f64 lambda1 lambda2 (*.f64 lambda1 lambda1))))) (cos.f64 phi1)))) R)
	8.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(approx (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))) (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)))))) (cos.f64 phi1)))) R)
	9.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(approx (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))) (.f64 (.f64 lambda1 lambda1) (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))))) (cos.f64 phi1)))) R)
	9.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(approx (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))) (*.f64 lambda2 (+.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	8.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(approx (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))) (*.f64 lambda2 lambda2)))) (cos.f64 phi1)))) R)
	8.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(approx (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))) (*.f64 lambda1 lambda1)))) (cos.f64 phi1)))) R)
	20.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
	13.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 #s(approx (- (pow lambda2 3) (pow lambda1 3)) (neg.f64 (.f64 (.f64 lambda1 lambda1) lambda1))) (fma.f64 lambda2 lambda2 (fma.f64 lambda1 lambda1 (.f64 lambda2 lambda1))))) (cos.f64 phi1)))) R)
	27.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	38.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	17.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (/ (- (pow lambda2 3) (pow lambda1 3)) (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1)))) (.f64 lambda2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 lambda1 lambda1)) (.f64 lambda2 lambda2))) (-.f64 (.f64 lambda1 (/.f64 (.f64 #s(literal 0 binary64) (.f64 lambda1 lambda1)) (.f64 (.f64 lambda2 lambda2) lambda2))) (+.f64 (/.f64 lambda1 lambda2) (/.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)))))))) (cos.f64 phi1)))) R)
	33.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (/ (- (pow lambda2 3) (pow lambda1 3)) (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1)))) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #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 (/ (- (pow lambda2 3) (pow lambda1 3)) (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1)))) lambda2)) (cos.f64 phi1)))) R)
	20.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (/ (- (pow lambda2 3) (pow lambda1 3)) (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2)))))) (cos.f64 phi1)))) R)
	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (/ (- (pow lambda2 3) (pow lambda1 3)) (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))))) (cos.f64 lambda1)) (cos.f64 phi1)))) R)
	22.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (fma.f64 (.f64 (neg.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))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	20.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda1 (-.f64 (.f64 (fma.f64 (.f64 (sin.f64 lambda2) lambda1) #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	16.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) R)
	21.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) R)
	32.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
	16.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	9.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (/.f64 (-.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (fma.f64 phi1 phi1 (fma.f64 phi2 phi2 (*.f64 phi1 phi2)))))))) R)
	14.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi1 phi2)))))) R)
✓	27.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
	22.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))))))) R)
	13.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (cos (- phi1 phi2)) (+.f64 (cos.f64 phi2) (*.f64 (neg.f64 phi1) (neg.f64 (sin.f64 phi2)))))))) R)
	12.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (cos (- phi1 phi2)) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) R)
▶	18.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (cos (- phi1 phi2)) (cos.f64 phi2))))) R)
	21.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (pow lambda2 3) (pow lambda1 3)) (+ (* lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))))) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)

Compiler

Compiled 5 785 to 5 149 computations (11% saved)

series138.0ms (1%)

Memory

-34.7MiB live, 206.6MiB allocated; 73ms collecting garbage

Counts

54 → 292

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite222.0ms (1.7%)

Memory

30.3MiB live, 265.6MiB allocated; 17ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1419	10927
0	1494	10308
0	8742	9902
1	20913	9902

Stop Event

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

Counts

346 → 447

Calls

Call 1

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

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

eval71.0ms (0.5%)

Memory: -10.4MiB live, 127.3MiB allocated; 9ms collecting garbage
Compiler: Compiled 9 505 to 3 593 computations (62.2% saved)

prune163.0ms (1.2%)

Memory

12.0MiB live, 254.4MiB allocated; 19ms collecting garbage

Pruning

107 alts after pruning (103 fresh and 4 done)

	Pruned	Kept	Total
New	457	46	503
Fresh	27	57	84
Picked	3	2	5
Done	1	2	3
Total	488	107	595

Accuracy

93.2%

Counts

595 → 107

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.1%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	44.8%	(.f64 (-.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)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))) R)
	52.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
	18.8%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda2 lambda1)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (cos (- phi1 phi2)) (cos.f64 phi2)))))) R)
	38.9%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) R)
	92.7%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	52.6%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.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)
	27.7%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2)))))) R)
	74.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
✓	92.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	92.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	92.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
	45.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
	52.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (cos.f64 lambda2))))) R)
	44.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	53.4%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	52.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	58.1%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	70.2%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	92.6%	(.f64 (acos.f64 (/.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)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) (-.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	70.2%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	92.6%	(.f64 (acos.f64 (/.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)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	29.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.3%	(.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)
	70.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	70.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
✓	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	92.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	36.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	42.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(approx (- 1 (/ lambda2 lambda1)) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)))))) R)
	44.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 lambda2) lambda1) (.f64 (sin.f64 lambda2) lambda1) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))))))))) R)
	52.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)
	44.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) #s(approx (+ (* (sin lambda2) lambda1) (cos lambda2)) (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)))))))) R)
	23.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 (+ (* lambda1 (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2)))) (cos lambda2)) (+.f64 (fma.f64 (.f64 lambda1 lambda1) #s(literal -1/2 binary64) (.f64 lambda2 lambda1)) #s(literal 1 binary64))))))) R)
	22.1%	(.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 (+ (* lambda1 (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2)))) (cos lambda2)) (.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (cos.f64 lambda2) lambda1)) (neg.f64 (sin.f64 lambda2))) lambda1))) (.f64 lambda1 lambda1))))))) R)
	30.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	42.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	25.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.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)
	36.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	36.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	32.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	31.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
	31.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	25.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos lambda1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda1)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	25.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 #s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda1 lambda1) (fma.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1) #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	52.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) R)
	42.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	23.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	25.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
	32.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))) R)
	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
	52.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda2 lambda1)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	24.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	24.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (sin.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	50.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	7.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (.f64 (.f64 lambda1 lambda1) lambda1)) (fma.f64 lambda2 lambda2 (.f64 lambda1 (+.f64 lambda1 lambda2)))) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (/.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (.f64 (.f64 lambda1 lambda1) lambda1)) (fma.f64 lambda2 lambda2 (.f64 lambda1 (+.f64 lambda1 lambda2)))) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64)))) R)
	31.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64)))) R)
	9.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (+.f64 (/.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda2 lambda2 (.f64 lambda1 (+.f64 lambda1 lambda2)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))) R)
	6.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (+.f64 (/.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (.f64 (.f64 lambda1 lambda1) lambda1)) (fma.f64 lambda2 lambda2 (.f64 lambda1 (+.f64 lambda1 lambda2)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	7.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (+.f64 (/.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (.f64 (.f64 lambda1 lambda1) lambda1)) (fma.f64 lambda2 lambda2 #s(approx ( lambda1 (+ lambda1 lambda2)) (.f64 lambda1 lambda2)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))) R)
	8.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (+.f64 (/.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (.f64 (.f64 lambda1 lambda1) lambda1)) #s(approx (+ ( lambda2 lambda2) (* lambda1 (+ lambda1 lambda2))) (fma.f64 lambda1 lambda2 (.f64 lambda1 lambda1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))) R)
	6.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (+.f64 (/.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (.f64 (.f64 lambda1 lambda1) lambda1)) #s(approx (+ ( lambda2 lambda2) (* lambda1 (+ lambda1 lambda2))) (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))) R)
	6.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (+.f64 (/.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (.f64 (.f64 lambda1 lambda1) lambda1)) #s(approx (+ ( lambda2 lambda2) (* lambda1 (+ lambda1 lambda2))) (.f64 lambda2 lambda2))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))) R)
	11.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (+.f64 (/.f64 #s(approx (- ( (* lambda2 lambda2) lambda2) (* (* lambda1 lambda1) lambda1)) (.f64 #s(literal -1 binary64) (.f64 (.f64 lambda1 lambda1) lambda1))) (fma.f64 lambda2 lambda2 (.f64 lambda1 (+.f64 lambda1 lambda2)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))) R)
	9.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 (+.f64 #s(approx (/ (- ( (* lambda2 lambda2) lambda2) (* (* lambda1 lambda1) lambda1)) (+ (* lambda2 lambda2) (* lambda1 (+ lambda1 lambda2)))) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 lambda1) (.f64 lambda1 lambda1))) (.f64 (.f64 lambda2 lambda2) lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 (/.f64 lambda1 lambda2) (/.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))))))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))) R)
	21.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 #s(approx (+ (/ (- ( (* lambda2 lambda2) lambda2) (* (* lambda1 lambda1) lambda1)) (+ (* lambda2 lambda2) (* lambda1 (+ lambda1 lambda2)))) (* (PI) 1/2)) (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 phi1)))) R)
	11.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 #s(approx (+ (/ (- ( (* lambda2 lambda2) lambda2) (* (* lambda1 lambda1) lambda1)) (+ (* lambda2 lambda2) (* lambda1 (+ lambda1 lambda2)))) (* (PI) 1/2)) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (+.f64 (/.f64 lambda2 lambda1) (/.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda1))))) #s(literal 1 binary64))))) (cos.f64 phi1)))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 #s(approx (+ (/ (- ( (* lambda2 lambda2) lambda2) (* (* lambda1 lambda1) lambda1)) (+ (* lambda2 lambda2) (* lambda1 (+ lambda1 lambda2)))) (* (PI) 1/2)) (*.f64 #s(literal -1 binary64) lambda1))) (cos.f64 phi1)))) R)
	9.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(approx (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))) (fma.f64 lambda1 lambda2 (*.f64 lambda1 lambda1))))) (cos.f64 phi1)))) R)
	8.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(approx (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))) (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)))))) (cos.f64 phi1)))) R)
	9.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(approx (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))) (*.f64 lambda2 (+.f64 lambda1 lambda2))))) (cos.f64 phi1)))) R)
	8.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(approx (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))) (*.f64 lambda1 lambda1)))) (cos.f64 phi1)))) R)
	20.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1))) (cos.f64 phi1)))) R)
	27.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (fma.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	17.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (/ (- (pow lambda2 3) (pow lambda1 3)) (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1)))) (.f64 lambda2 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 lambda1 lambda1)) (.f64 lambda2 lambda2))) (-.f64 (.f64 lambda1 (/.f64 (.f64 #s(literal 0 binary64) (.f64 lambda1 lambda1)) (.f64 (.f64 lambda2 lambda2) lambda2))) (+.f64 (/.f64 lambda1 lambda2) (/.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)))))))) (cos.f64 phi1)))) R)
	33.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (/ (- (pow lambda2 3) (pow lambda1 3)) (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1)))) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #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 (/ (- (pow lambda2 3) (pow lambda1 3)) (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1)))) lambda2)) (cos.f64 phi1)))) R)
	9.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (/ (- ( (* lambda2 lambda2) lambda2) (* (* lambda1 lambda1) lambda1)) (+ (* lambda2 lambda2) (* lambda1 (+ lambda1 lambda2)))) (* (PI) 1/2))) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (fma.f64 lambda1 lambda2 (fma.f64 lambda1 lambda1 (.f64 lambda2 lambda2))))) (/.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (fma.f64 lambda1 lambda2 (fma.f64 lambda1 lambda1 (.f64 lambda2 lambda2))))))) (cos.f64 phi1)))) R)
	20.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (/ (- (pow lambda2 3) (pow lambda1 3)) (+ ( lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2)))))) (cos.f64 phi1)))) R)
	22.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 (neg.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (fma.f64 (.f64 (neg.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))) (cos.f64 phi1)))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda2 lambda1)) (fma.f64 lambda2 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	16.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) R)
	21.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) R)
	32.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
	16.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	9.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (/.f64 (-.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (fma.f64 phi1 phi1 (fma.f64 phi2 phi2 (*.f64 phi1 phi2)))))))) R)
	14.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi1 phi2)))))) R)
✓	27.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
	22.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))))))) R)
	13.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (cos (- phi1 phi2)) (+.f64 (cos.f64 phi2) (*.f64 (neg.f64 phi1) (neg.f64 (sin.f64 phi2)))))))) R)
	12.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (cos (- phi1 phi2)) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) R)
	13.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (cos (- phi1 phi2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	13.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (cos (- phi1 phi2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
✓	18.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (cos (- phi1 phi2)) (cos.f64 phi2))))) R)
	3.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (cos (- phi1 phi2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))))))) R)
	21.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (pow lambda2 3) (pow lambda1 3)) (+ (* lambda2 lambda2) (+ (* lambda1 lambda1) (* lambda2 lambda1))))) (cos phi1)) (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)

Compiler

Compiled 6 578 to 4 533 computations (31.1% saved)

regimes611.0ms (4.6%)

Memory

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

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

Calls

10 calls:

120.0ms	(-.f64 lambda1 lambda2)
63.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)
61.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
57.0ms	R
54.0ms	lambda1

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes604.0ms (4.6%)

Memory

42.8MiB live, 682.2MiB allocated; 149ms collecting garbage

Counts

144 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

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

Results

Accuracy	Segments	Branch
81.5%	3	`phi1`
75.3%	2	`(-.f64 lambda1 lambda2)`
70.3%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
70.3%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
70.3%	1	`R`
77.6%	3	`lambda1`
76.8%	3	`lambda2`
82.8%	3	`phi2`
70.3%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
70.3%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes81.0ms (0.6%)

Memory

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

Outputs

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

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

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

Calls

1 calls:

74.0ms

phi2

Results

Accuracy	Segments	Branch
81.8%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes471.0ms (3.6%)

Memory

15.8MiB live, 385.6MiB allocated; 45ms collecting garbage

Counts

121 → 1

Calls

Call 1

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

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

Calls

7 calls:

118.0ms	lambda2
100.0ms	phi2
89.0ms	(-.f64 lambda1 lambda2)
54.0ms	lambda1
37.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
70.3%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
70.3%	1	`R`
70.3%	1	`lambda2`
70.3%	1	`(-.f64 lambda1 lambda2)`
70.3%	1	`lambda1`
70.3%	1	`phi1`
70.3%	1	`phi2`

Compiler

Compiled 25 to 48 computations (-92% saved)

regimes364.0ms (2.7%)

Memory

-28.7MiB live, 566.5MiB allocated; 86ms collecting garbage

Counts

90 → 2

Calls

Call 1

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

Outputs

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

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

Calls

10 calls:

85.0ms	lambda2
54.0ms	lambda1
43.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
27.0ms	R
27.0ms	phi1

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes29.0ms (0.2%)

Memory

22.4MiB live, 64.4MiB allocated; 4ms collecting garbage

Counts

84 → 2

Calls

Call 1

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

Calls

1 calls:

24.0ms

lambda2

Results

Accuracy	Segments	Branch
70.4%	2	`lambda2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes27.0ms (0.2%)

Memory

17.8MiB live, 61.6MiB allocated; 4ms collecting garbage

Counts

82 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

22.0ms

lambda2

Results

Accuracy	Segments	Branch
70.4%	2	`lambda2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes54.0ms (0.4%)

Memory

-2.5MiB live, 95.9MiB allocated; 15ms collecting garbage

Counts

80 → 2

Calls

Call 1

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

Calls

2 calls:

26.0ms	lambda2
23.0ms	lambda1

Results

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

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes297.0ms (2.2%)

Memory

-14.9MiB live, 346.4MiB allocated; 74ms collecting garbage

Counts

79 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

96.0ms	phi1
48.0ms	lambda2
42.0ms	(cos.f64 (-.f64 lambda1 lambda2))
34.0ms	phi2
27.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
54.5%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
49.2%	3	`lambda1`
44.8%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
44.8%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
58.1%	3	`phi2`
57.9%	3	`phi1`
47.6%	3	`lambda2`

Compiler

Compiled 37 to 58 computations (-56.8% saved)

regimes41.0ms (0.3%)

Memory

11.9MiB live, 102.2MiB allocated; 6ms collecting garbage

Counts

64 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

20.0ms	phi1
17.0ms	phi2

Results

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

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes45.0ms (0.3%)

Memory

17.2MiB live, 115.9MiB allocated; 6ms collecting garbage

Counts

22 → 2

Calls

Call 1

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

Outputs

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

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

Calls

6 calls:

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

Results

Accuracy	Segments	Branch
45.4%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
38.9%	1	`R`
38.9%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
45.4%	2	`(-.f64 lambda1 lambda2)`
47.4%	3	`phi1`
50.9%	2	`phi2`

Compiler

Compiled 27 to 45 computations (-66.7% saved)

regimes55.0ms (0.4%)

Memory

-3.4MiB live, 139.9MiB allocated; 7ms collecting garbage

Counts

21 → 2

Calls

Call 1

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

Outputs

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

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

Calls

8 calls:

9.0ms	phi1
8.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
6.0ms	lambda1
6.0ms	(-.f64 lambda1 lambda2)
6.0ms	phi2

Results

Accuracy	Segments	Branch
35.1%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
35.1%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
40.0%	3	`(cos.f64 (-.f64 lambda1 lambda2))`
39.3%	3	`(-.f64 lambda1 lambda2)`
44.0%	3	`phi1`
42.8%	2	`lambda2`
42.9%	2	`lambda1`
43.1%	2	`phi2`

Compiler

Compiled 40 to 64 computations (-60% saved)

regimes30.0ms (0.2%)

Memory

26.0MiB live, 72.1MiB allocated; 3ms collecting garbage

Counts

14 → 2

Calls

Call 1

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

Outputs

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

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

Calls

6 calls:

7.0ms	lambda2
4.0ms	phi1
4.0ms	phi2
4.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)
4.0ms	R

Results

Accuracy	Segments	Branch
32.0%	1	`R`
32.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)`
38.7%	2	`phi1`
38.0%	2	`lambda2`
34.0%	2	`lambda1`
37.6%	3	`phi2`

Compiler

Compiled 22 to 42 computations (-90.9% saved)

regimes65.0ms (0.5%)

Memory

-34.6MiB live, 112.1MiB allocated; 5ms collecting garbage

Counts

13 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

16.0ms	phi2
14.0ms	R
6.0ms	phi1
4.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
4.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
27.7%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
27.7%	1	`R`
29.5%	2	`lambda1`
27.7%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
27.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
32.7%	3	`phi2`
31.3%	2	`(-.f64 lambda1 lambda2)`
27.7%	1	`lambda2`
32.0%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
34.2%	3	`phi1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes25.0ms (0.2%)

Memory

-3.9MiB live, 43.8MiB allocated; 1ms collecting garbage

Counts

9 → 1

Calls

Call 1

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

Outputs

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

Calls

5 calls:

12.0ms	phi2
3.0ms	lambda1
3.0ms	(-.f64 lambda1 lambda2)
3.0ms	phi1
3.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

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

Compiler

Compiled 10 to 28 computations (-180% saved)

regimes26.0ms (0.2%)

Memory

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

Counts

2 → 1

Calls

Call 1

Inputs

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

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

Outputs

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

Calls

10 calls:

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

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes12.0ms (0.1%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Outputs

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

Calls

10 calls:

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

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

bsearch204.0ms (1.5%)

Memory

-23.2MiB live, 218.6MiB allocated; 28ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
106.0ms	2450325.3269783165	109791540224427.9
90.0ms	-24978706.9424508	-6.787891446084252e-8

Samples

167.0ms	215×	1	valid
15.0ms	89×	0	valid

Compiler

Compiled 725 to 766 computations (-5.7% saved)

Precisions

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

adjust: 62.0ms (36.9% of total)

ival-cos: 57.0ms (33.9% of total)

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

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

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

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

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

bsearch100.0ms (0.8%)

Memory

-7.0MiB live, 182.9MiB allocated; 8ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

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

Samples

74.0ms	185×	1	valid
8.0ms	39×	0	valid

Compiler

Compiled 638 to 655 computations (-2.7% saved)

Precisions

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

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

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

adjust: 8.0ms (11.2% of total)

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

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

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

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

bsearch51.0ms (0.4%)

Memory

25.2MiB live, 120.8MiB allocated; 9ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

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

Samples

37.0ms	79×	1	valid
6.0ms	33×	0	valid

Compiler

Compiled 393 to 410 computations (-4.3% saved)

Precisions

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

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

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

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

adjust: 6.0ms (15.6% of total)

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

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

Compiler

Compiled 386 to 403 computations (-4.4% saved)

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

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

Compiler

Compiled 386 to 403 computations (-4.4% saved)

bsearch31.0ms (0.2%)

Memory

0.1MiB live, 94.8MiB allocated; 3ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
27.0ms	0.08220244521968363	0.21999986394137583

Samples

17.0ms	42×	1	valid
6.0ms	38×	0	valid

Compiler

Compiled 247 to 260 computations (-5.3% saved)

Precisions

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

ival-cos: 8.0ms (39.8% of total)

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

adjust: 2.0ms (10% of total)

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

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

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

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

bsearch99.0ms (0.7%)

Memory

-20.3MiB live, 213.9MiB allocated; 27ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

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

Samples

75.0ms	146×	1	valid
7.0ms	46×	0	valid

Compiler

Compiled 910 to 939 computations (-3.2% saved)

Precisions

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

ival-sin: 25.0ms (33.9% of total)

ival-cos: 24.0ms (32.5% of total)

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

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

adjust: 6.0ms (8.1% of total)

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

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

bsearch35.0ms (0.3%)

Memory

-11.2MiB live, 77.8MiB allocated; 15ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

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

Samples

25.0ms	57×	1	valid
1.0ms	7×	0	valid

Compiler

Compiled 374 to 393 computations (-5.1% saved)

Precisions

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

ival-cos: 11.0ms (47.5% of total)

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

adjust: 2.0ms (8.6% of total)

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

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

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

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

bsearch82.0ms (0.6%)

Memory

26.9MiB live, 123.5MiB allocated; 14ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
79.0ms	0.000341789530167457	1.0877966250660418

Samples

70.0ms	106×	1	valid
3.0ms	22×	0	valid

Compiler

Compiled 446 to 433 computations (2.9% saved)

Precisions

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

ival-sin: 39.0ms (57.3% of total)

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

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

adjust: 4.0ms (5.9% of total)

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

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.000341789530167457	1.0877966250660418

Compiler

Compiled 462 to 449 computations (2.8% saved)

bsearch155.0ms (1.2%)

Memory

22.1MiB live, 158.0MiB allocated; 15ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
151.0ms	-4578.605327955566	-2.1909044619822265e-5

Samples

140.0ms	116×	1	valid
4.0ms	28×	0	valid

Compiler

Compiled 571 to 520 computations (8.9% saved)

Precisions

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

ival-cos: 108.0ms (77.9% of total)

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

adjust: 8.0ms (5.8% of total)

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

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

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

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

bsearch121.0ms (0.9%)

Memory

-17.6MiB live, 320.3MiB allocated; 19ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
53.0ms	3.6509131968519205e-164	4.196303462451046e-161
62.0ms	-2.930442281250334e-58	-2.7535645506864294e-65

Samples

83.0ms	212×	1	valid
11.0ms	49×	0	valid
5.0ms	11×	2	valid

Compiler

Compiled 1 039 to 991 computations (4.6% saved)

Precisions

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

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

ival-mult!: 17.0ms (19.5% of total)

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

adjust: 10.0ms (11.5% of total)

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

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

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

derivations708.0ms (5.3%)

Memory

-18.2MiB live, 1 041.5MiB allocated; 169ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 360 to 200 computations (44.4% saved)

preprocess451.0ms (3.4%)

Memory

13.3MiB live, 771.0MiB allocated; 72ms collecting garbage

Remove

(sort lambda1 lambda2)

(negabs R)

Compiler

Compiled 6 773 to 5 207 computations (23.1% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.2s (8.8%)

sample5.2s (39.3%)

preprocess66.0ms (0.5%)

series43.0ms (0.3%)

rewrite264.0ms (2%)

eval31.0ms (0.2%)

prune59.0ms (0.4%)

series94.0ms (0.7%)

rewrite221.0ms (1.7%)

eval72.0ms (0.5%)

prune81.0ms (0.6%)

series107.0ms (0.8%)

rewrite209.0ms (1.6%)

eval74.0ms (0.6%)

prune100.0ms (0.8%)

series138.0ms (1%)

rewrite222.0ms (1.7%)

eval71.0ms (0.5%)

prune163.0ms (1.2%)

regimes611.0ms (4.6%)

regimes604.0ms (4.6%)

regimes81.0ms (0.6%)

regimes471.0ms (3.6%)

regimes364.0ms (2.7%)

regimes29.0ms (0.2%)

regimes27.0ms (0.2%)

regimes54.0ms (0.4%)

regimes297.0ms (2.2%)

regimes41.0ms (0.3%)

regimes45.0ms (0.3%)

regimes55.0ms (0.4%)

regimes30.0ms (0.2%)

regimes65.0ms (0.5%)

regimes25.0ms (0.2%)

regimes26.0ms (0.2%)

regimes12.0ms (0.1%)

bsearch204.0ms (1.5%)

bsearch100.0ms (0.8%)

bsearch51.0ms (0.4%)

bsearch2.0ms (0%)

bsearch2.0ms (0%)

bsearch31.0ms (0.2%)

bsearch99.0ms (0.7%)

bsearch35.0ms (0.3%)

bsearch82.0ms (0.6%)

bsearch1.0ms (0%)

bsearch155.0ms (1.2%)

bsearch121.0ms (0.9%)

derivations708.0ms (5.3%)

preprocess451.0ms (3.4%)

end0.0ms (0%)

Profiling