Metrics for Spherical law of cosines

start0.0ms (0%)

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

analyze846.0ms (6%)

Memory

-17.8MiB live, 899.8MiB allocated; 186ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 21 to 19 computations (9.5% saved)

sample4.4s (31.5%)

Memory

90.3MiB live, 5 429.5MiB allocated; 906ms collecting garbage

Samples

3.2s	6 370×	1	valid
445.0ms	1 729×	0	valid
65.0ms	130×	2	valid
38.0ms	27×	3	valid

Precisions

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

ival-cos: 1.4s (42.4% of total)

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

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

adjust: 323.0ms (9.8% of total)

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

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

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

Bogosity

preprocess59.0ms (0.4%)

Memory

3.5MiB live, 57.2MiB allocated; 9ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

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

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	76.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)

Symmetry

(negabs R)

(sort lambda1 lambda2)

(sort phi1 phi2)

Compiler

Compiled 34 to 34 computations (0% saved)

series43.0ms (0.3%)

Memory

-1.9MiB live, 87.4MiB allocated; 12ms 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
5.0ms	lambda2	@	-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	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)

rewrite284.0ms (2%)

Memory

26.2MiB live, 254.4MiB allocated; 28ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	433	2641
0	450	2593
1	2615	2591
0	10145	2450

Stop Event

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

Counts

115 → 192

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

eval29.0ms (0.2%)

Memory: 2.9MiB live, 58.6MiB allocated; 9ms collecting garbage
Compiler: Compiled 3 128 to 1 200 computations (61.6% saved)

prune35.0ms (0.2%)

Memory

0.9MiB live, 90.0MiB allocated; 6ms collecting garbage

Pruning

33 alts after pruning (33 fresh and 0 done)

	Pruned	Kept	Total
New	146	33	179
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	147	33	180

Accuracy

94.9%

Counts

180 → 33

Alt Table

Click to see full alt table

Status	Accuracy	Program
	75.9%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	76.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	76.2%	(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	76.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	76.1%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	60.9%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	76.2%	(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	32.6%	(.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)
	33.4%	(.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)
	76.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (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 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	46.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	47.9%	(.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)
	47.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	94.8%	(.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)
	94.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	36.5%	(.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.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	64.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
	62.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)))))) R)
▶	46.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	48.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 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
	44.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 lambda2 (-.f64 (.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) (cos.f64 lambda1)))))) R)
	47.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 lambda1 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) R)
	52.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)) (cos.f64 lambda1))))) R)
	37.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.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)
	43.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	55.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)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	39.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	38.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	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)
	45.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
▶	45.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)

Compiler

Compiled 1 558 to 1 446 computations (7.2% saved)

series109.0ms (0.8%)

Memory

10.0MiB live, 206.8MiB allocated; 30ms collecting garbage

Counts

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

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

rewrite261.0ms (1.9%)

Memory

-19.8MiB live, 208.3MiB allocated; 28ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1164	8988
0	1238	8095
1	7791	8095
0	8499	7608

Stop Event

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

Counts

304 → 470

Calls

Call 1

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

eval84.0ms (0.6%)

Memory: 17.4MiB live, 111.0MiB allocated; 19ms collecting garbage
Compiler: Compiled 8 402 to 2 987 computations (64.4% saved)

prune69.0ms (0.5%)

Memory

-16.7MiB live, 130.0MiB allocated; 15ms collecting garbage

Pruning

58 alts after pruning (56 fresh and 2 done)

	Pruned	Kept	Total
New	464	43	507
Fresh	15	13	28
Picked	3	2	5
Done	0	0	0
Total	482	58	540

Accuracy

95.1%

Counts

540 → 58

Alt Table

Click to see full alt table

Status	Accuracy	Program
	75.9%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	76.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	55.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	45.6%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	76.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	76.1%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	60.9%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	76.2%	(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	94.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (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 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	76.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (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 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	47.9%	(.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)
▶	94.8%	(.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)
	54.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	94.7%	(.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)
	94.7%	(.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)
	36.5%	(.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.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	48.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	52.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)) (cos.f64 lambda1))))) R)
	46.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 (+.f64 (/.f64 (cos.f64 lambda1) lambda2) (sin.f64 lambda1)) lambda2)))))) R)
	45.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)
	61.6%	(.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)
	29.8%	(.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 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	22.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) lambda2)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	23.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.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)
	34.1%	(.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)
	55.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	33.9%	(.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)
✓	55.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)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	33.0%	(.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)
	54.0%	(.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)
	33.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)) (cos.f64 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) 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)
	31.1%	(.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)
▶	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	18.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)))) R)
	35.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64)))) R)
	31.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
	45.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
✓	45.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	22.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	22.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	22.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	37.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi1)))) R)
	37.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) (cos.f64 phi1)))) R)
	25.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	24.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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))) (cos.f64 phi1)))) R)
	25.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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))) (cos.f64 phi1)))) R)
	25.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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))) (cos.f64 phi1)))) R)
	26.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 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
	25.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))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
	31.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))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
▶	25.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))) (cos.f64 (-.f64 phi1 phi2))))) R)
	26.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	31.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)

Compiler

Compiled 3 258 to 2 978 computations (8.6% saved)

series116.0ms (0.8%)

Memory

30.1MiB live, 228.0MiB allocated; 34ms collecting garbage

Counts

59 → 357

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

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

Calls

15 calls:

Time	Variable		Point	Expression
16.0ms	phi1	@	0	((* (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)))) (/ (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) 2) (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (+ (/ (PI) 2) phi1) (/ (PI) 2) (PI) 2 (- lambda1 lambda2) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (* (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) R) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (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)))) (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (- (+ lambda2 (/ (PI) 2)) phi2) (+ lambda2 (/ (PI) 2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2)) (+ (+ lambda2 (/ (PI) 2)) phi2))
15.0ms	phi2	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (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)))) (/ (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) 2) (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (+ (/ (PI) 2) phi1) (/ (PI) 2) (PI) 2 (- lambda1 lambda2) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (* (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) R) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (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)))) (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (- (+ lambda2 (/ (PI) 2)) phi2) (+ lambda2 (/ (PI) 2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2)) (+ (+ lambda2 (/ (PI) 2)) phi2))
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) (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)))) (/ (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) 2) (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (+ (/ (PI) 2) phi1) (/ (PI) 2) (PI) 2 (- lambda1 lambda2) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (* (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) R) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (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)))) (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (- (+ lambda2 (/ (PI) 2)) phi2) (+ lambda2 (/ (PI) 2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2)) (+ (+ lambda2 (/ (PI) 2)) phi2))
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) (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)))) (/ (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) 2) (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (+ (/ (PI) 2) phi1) (/ (PI) 2) (PI) 2 (- lambda1 lambda2) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (* (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) R) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (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)))) (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (- (+ lambda2 (/ (PI) 2)) phi2) (+ lambda2 (/ (PI) 2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2)) (+ (+ lambda2 (/ (PI) 2)) phi2))
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)))) (/ (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) 2) (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (+ (/ (PI) 2) phi1) (/ (PI) 2) (PI) 2 (- lambda1 lambda2) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (* (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) R) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (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)))) (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (- (+ lambda2 (/ (PI) 2)) phi2) (+ lambda2 (/ (PI) 2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2)) (+ (+ lambda2 (/ (PI) 2)) phi2))

rewrite218.0ms (1.6%)

Memory

-9.4MiB live, 265.4MiB allocated; 24ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1682	13278
0	1772	12302
0	8842	11956

Stop Event

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

Counts

416 → 504

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

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

eval115.0ms (0.8%)

Memory: -5.4MiB live, 96.0MiB allocated; 13ms collecting garbage
Compiler: Compiled 11 711 to 4 016 computations (65.7% saved)

prune116.0ms (0.8%)

Memory

-3.7MiB live, 135.1MiB allocated; 7ms collecting garbage

Pruning

85 alts after pruning (82 fresh and 3 done)

	Pruned	Kept	Total
New	460	48	508
Fresh	17	34	51
Picked	4	1	5
Done	0	2	2
Total	481	85	566

Accuracy

95.2%

Counts

566 → 85

Alt Table

Click to see full alt table

Status	Accuracy	Program
	75.9%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	94.6%	(.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)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	76.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	55.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	31.8%	(.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 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	45.6%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	25.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2)))))) R)
	76.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
▶	94.8%	(.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)
	76.1%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	94.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)
▶	60.9%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	94.7%	(.f64 (acos.f64 (+.f64 (.f64 (.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	36.5%	(.f64 (acos.f64 (+.f64 (.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	47.9%	(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	76.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (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 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	54.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) #s(approx (cos lambda1) #s(literal 1 binary64))))))) R)
	47.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) #s(approx (* (cos lambda2) (cos lambda1)) (+.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)))))))))))) R)
	94.7%	(.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)
	36.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	48.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))))) R)
	52.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)) (cos.f64 lambda1))))) R)
	46.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 (+.f64 (/.f64 (cos.f64 lambda1) lambda2) (sin.f64 lambda1)) lambda2)))))) R)
	56.5%	(.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)
▶	45.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)
	54.3%	(.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)
	52.9%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	29.8%	(.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 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	55.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 lambda2) (.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))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	45.5%	(.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)
	23.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ lambda2 (/ (PI) 2)) phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ lambda2 (/ (PI) 2)) phi2) (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 lambda2 phi2)) #s(literal 1 binary64))))) (sin.f64 (+.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	23.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (/.f64 (+.f64 (-.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2) (+.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (-.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2) (+.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.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)
	34.1%	(.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)
	33.9%	(.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)
✓	55.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)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	33.0%	(.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)
	54.0%	(.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)
	33.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)) (cos.f64 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	21.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (sin.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.1%	(.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)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (-.f64 (.f64 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (sin.f64 (-.f64 lambda1 lambda2)))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	4.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (/.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 3 binary64))) (fma.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))))))) #s(literal 2 binary64)))) R)
	18.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (-.f64 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)))) R)
	19.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (-.f64 (-.f64 lambda1 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)))) R)
	18.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (+.f64 lambda1 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (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)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (-.f64 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	18.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (+.f64 lambda2 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 (+.f64 lambda2 phi1) lambda1)) #s(literal 1 binary64))))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	16.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) lambda2)) #s(literal 1 binary64)))))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
▶	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	35.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64)))) R)
	31.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
✓	45.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	22.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	22.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	22.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	37.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi1)))) R)
	37.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) (cos.f64 phi1)))) R)
	25.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	24.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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))) (cos.f64 phi1)))) R)
	25.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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))) (cos.f64 phi1)))) R)
	25.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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))) (cos.f64 phi1)))) R)
	17.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))))))) R)
	16.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))))))) R)
	25.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
	26.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
	10.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda2 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2))) (*.f64 phi1 (sin.f64 phi2)))))) R)
	20.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))))) R)
	31.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
	31.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
	15.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))) (sin.f64 (+.f64 (-.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	11.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))) (cos.f64 (/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi1 phi2)))))) R)
✓	25.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))) (cos.f64 (-.f64 phi1 phi2))))) R)
	19.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 #s(approx (- phi1 phi2) (.f64 phi1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))))))) R)
	10.6%	(.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 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 phi1)) (*.f64 #s(literal 1 binary64) (sin.f64 phi1))))))))) R)
	10.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)) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) R)
▶	17.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))) #s(approx (cos (- phi1 phi2)) (cos.f64 phi2))))) R)
	26.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	31.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)

Compiler

Compiled 5 636 to 5 054 computations (10.3% saved)

series88.0ms (0.6%)

Memory

4.0MiB live, 192.7MiB allocated; 16ms collecting garbage

Counts

58 → 348

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

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

Calls

15 calls:

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

rewrite201.0ms (1.4%)

Memory

2.9MiB live, 270.5MiB allocated; 72ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1576	12654
0	1647	11860
0	8313	11477

Stop Event

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

Counts

406 → 482

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

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

eval76.0ms (0.5%)

Memory: -12.6MiB live, 175.5MiB allocated; 14ms collecting garbage
Compiler: Compiled 10 267 to 3 585 computations (65.1% saved)

prune157.0ms (1.1%)

Memory

23.3MiB live, 341.5MiB allocated; 33ms collecting garbage

Pruning

99 alts after pruning (94 fresh and 5 done)

	Pruned	Kept	Total
New	464	32	496
Fresh	15	62	77
Picked	3	2	5
Done	0	3	3
Total	482	99	581

Accuracy

95.2%

Counts

581 → 99

Alt Table

Click to see full alt table

Status	Accuracy	Program
	75.9%	(.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)) (fma.f64 (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	94.6%	(.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)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	45.4%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	55.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	19.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))) R)
	45.6%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	25.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2)))))) R)
	17.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (cos (- phi1 phi2)) (cos.f64 phi2)))))) R)
✓	94.8%	(.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)
	54.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) #s(approx (cos lambda1) #s(literal 1 binary64))))))) R)
	47.5%	(.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) #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)))))))))))) R)
	94.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.5%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	52.8%	(.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)
	61.6%	(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) 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)
	76.1%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	94.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)
	31.3%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	30.5%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	47.0%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.8%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.2%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	76.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (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 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	52.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)) (cos.f64 lambda1))))) R)
	46.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 (+.f64 (/.f64 (cos.f64 lambda1) lambda2) (sin.f64 lambda1)) lambda2)))))) R)
	30.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	30.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.5%	(.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)
	56.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	24.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	25.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 (- lambda1 lambda2)) (-.f64 (cos.f64 lambda2) (.f64 #s(literal 1 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))))) R)
	25.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 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 (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)) (*.f64 #s(literal 1 binary64) (sin.f64 lambda1))))))))) R)
	31.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
	52.9%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	29.8%	(.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 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	55.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 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	45.5%	(.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)
	23.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ lambda2 (/ (PI) 2)) phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ lambda2 (/ (PI) 2)) phi2) (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 lambda2 phi2)) #s(literal 1 binary64))))) (sin.f64 (+.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	23.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (/.f64 (+.f64 (-.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2) (+.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (-.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2) (+.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.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)
	34.1%	(.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)
	33.9%	(.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)
✓	55.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)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	33.0%	(.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)
	54.0%	(.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)
	33.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)) (cos.f64 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (sin.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.1%	(.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)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (-.f64 (.f64 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (sin.f64 (-.f64 lambda1 lambda2)))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	18.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (-.f64 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)))) R)
	19.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (-.f64 (-.f64 lambda1 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)))) R)
	18.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (+.f64 lambda1 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (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)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (-.f64 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	18.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (+.f64 lambda2 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 (+.f64 lambda2 phi1) lambda1)) #s(literal 1 binary64))))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	16.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) lambda2)) #s(literal 1 binary64)))))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) R)
	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) lambda1))) (fma.f64 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (sin.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) R)
	7.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))))) #s(literal 2 binary64)))) R)
	17.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) lambda1))) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(approx (- lambda1 lambda2) (.f64 lambda1 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))))))) #s(literal 2 binary64)))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) lambda1))) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)))) R)
	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) lambda1))) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)))) R)
	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) lambda1))) (sin.f64 #s(approx (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (+.f64 lambda1 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)))) R)
	19.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (/.f64 (+.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) lambda1)) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 #s(approx (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) lambda1)) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #s(literal 2 binary64)))) R)
	31.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
✓	45.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	22.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	22.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	22.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	37.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi1)))) R)
	37.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) (cos.f64 phi1)))) R)
	25.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	24.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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))) (cos.f64 phi1)))) R)
	25.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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))) (cos.f64 phi1)))) R)
	25.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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))) (cos.f64 phi1)))) R)
	17.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))))))) R)
	16.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (/ (+ (sin (- (+ (/ (PI) 2) phi1) (- lambda1 lambda2))) (sin (+ (+ (/ (PI) 2) phi1) (- lambda1 lambda2)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))))))) R)
	25.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
	26.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
	10.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda2 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2))) (*.f64 phi1 (sin.f64 phi2)))))) R)
	20.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))))) R)
	31.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
	31.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
	15.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))) (sin.f64 (+.f64 (-.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	11.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))) (cos.f64 (/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi1 phi2)))))) R)
✓	25.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))) (cos.f64 (-.f64 phi1 phi2))))) R)
	19.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 #s(approx (- phi1 phi2) (.f64 phi1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))))))) R)
	10.6%	(.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 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 phi1)) (*.f64 #s(literal 1 binary64) (sin.f64 phi1))))))))) R)
	10.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)) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) R)
	11.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)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	11.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)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
✓	17.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))) #s(approx (cos (- phi1 phi2)) (cos.f64 phi2))))) R)
	2.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))) #s(approx (cos (- phi1 phi2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))))))) R)
	26.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	31.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)

Compiler

Compiled 5 978 to 4 143 computations (30.7% saved)

regimes423.0ms (3%)

Memory

-7.3MiB live, 521.5MiB allocated; 76ms collecting garbage

Counts

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

Outputs

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

Calls

10 calls:

61.0ms	phi2
42.0ms	lambda1
40.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
40.0ms	phi1
39.0ms	lambda2

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes448.0ms (3.2%)

Memory

-14.0MiB live, 281.8MiB allocated; 73ms collecting garbage

Counts

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

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:

76.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
53.0ms	phi1
49.0ms	R
47.0ms	lambda2
44.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes470.0ms (3.3%)

Memory

6.0MiB live, 332.9MiB allocated; 42ms collecting garbage

Counts

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

Outputs

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

Calls

10 calls:

55.0ms	phi1
54.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
53.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
52.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
51.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

Accuracy	Segments	Branch
76.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)))))`
76.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)`
79.6%	2	`(-.f64 lambda1 lambda2)`
76.2%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
76.2%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
76.2%	1	`R`
81.5%	3	`lambda1`
81.7%	3	`lambda2`
87.8%	3	`phi1`
84.5%	3	`phi2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes57.0ms (0.4%)

Memory

-9.9MiB live, 89.3MiB allocated; 13ms collecting garbage

Counts

135 → 3

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

43.0ms

phi1

Results

Accuracy	Segments	Branch
87.8%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes60.0ms (0.4%)

Memory

20.5MiB live, 114.0MiB allocated; 3ms collecting garbage

Counts

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

Outputs

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

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

Calls

1 calls:

54.0ms

phi1

Results

Accuracy	Segments	Branch
87.0%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes111.0ms (0.8%)

Memory

-17.4MiB live, 123.0MiB allocated; 18ms collecting garbage

Counts

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

Outputs

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

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

Calls

2 calls:

55.0ms	phi2
43.0ms	phi1

Results

Accuracy	Segments	Branch
84.4%	3	`phi2`
76.2%	1	`phi1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes378.0ms (2.7%)

Memory

40.5MiB live, 499.5MiB allocated; 101ms collecting garbage

Counts

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

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 40 to 64 computations (-60% saved)

regimes386.0ms (2.7%)

Memory

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

Outputs

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

Calls

10 calls:

113.0ms	phi2
49.0ms	(cos.f64 (-.f64 lambda1 lambda2))
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)
34.0ms	phi1
28.0ms	R

Results

Accuracy	Segments	Branch
59.1%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
68.5%	3	`phi2`
58.1%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
75.8%	2	`lambda1`
60.5%	3	`(-.f64 lambda1 lambda2)`
59.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)))))`
57.0%	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)`
57.0%	2	`R`
75.9%	2	`lambda2`
68.5%	3	`phi1`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes61.0ms (0.4%)

Memory

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

Outputs

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

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

Calls

1 calls:

20.0ms

lambda2

Results

Accuracy	Segments	Branch
75.9%	2	`lambda2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes50.0ms (0.4%)

Memory

-7.8MiB live, 37.0MiB allocated; 6ms collecting garbage

Counts

76 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

46.0ms

lambda2

Results

Accuracy	Segments	Branch
75.9%	2	`lambda2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes136.0ms (1%)

Memory

11.6MiB live, 113.1MiB allocated; 7ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

4 calls:

49.0ms	phi1
45.0ms	lambda2
19.0ms	phi2
19.0ms	lambda1

Results

Accuracy	Segments	Branch
65.8%	3	`phi2`
65.0%	3	`phi1`
60.2%	2	`lambda1`
67.4%	3	`lambda2`

Compiler

Compiled 4 to 20 computations (-400% saved)

regimes98.0ms (0.7%)

Memory

7.6MiB live, 146.4MiB allocated; 8ms collecting garbage

Counts

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

Outputs

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

(*.f64 (acos.f64 (fma.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 #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)

Calls

3 calls:

45.0ms	lambda2
28.0ms	phi2
21.0ms	phi1

Results

Accuracy	Segments	Branch
63.1%	3	`phi1`
60.8%	2	`phi2`
49.9%	3	`lambda2`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes24.0ms (0.2%)

Memory

-25.5MiB live, 72.9MiB allocated; 9ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

1 calls:

21.0ms

phi1

Results

Accuracy	Segments	Branch
63.1%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes38.0ms (0.3%)

Memory

5.2MiB live, 96.3MiB allocated; 8ms collecting garbage

Counts

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

Outputs

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

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

Calls

2 calls:

18.0ms	phi2
17.0ms	phi1

Results

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

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes65.0ms (0.5%)

Memory

17.9MiB live, 159.4MiB allocated; 15ms collecting garbage

Counts

19 → 2

Calls

Call 1

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

Outputs

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

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

Calls

9 calls:

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

Results

Accuracy	Segments	Branch
45.6%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
45.6%	1	`R`
51.7%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
51.7%	2	`(-.f64 lambda1 lambda2)`
45.6%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
45.6%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
49.4%	3	`lambda1`
50.6%	2	`phi1`
56.5%	2	`phi2`

Compiler

Compiled 57 to 81 computations (-42.1% saved)

regimes76.0ms (0.5%)

Memory

-20.1MiB live, 172.4MiB allocated; 31ms collecting garbage

Counts

18 → 3

Calls

Call 1

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

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

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

Calls

10 calls:

17.0ms	phi1
9.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
9.0ms	phi2
8.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
5.0ms	R

Results

Accuracy	Segments	Branch
37.5%	3	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
34.9%	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)`
34.9%	2	`R`
37.5%	3	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
48.0%	3	`lambda1`
47.2%	3	`lambda2`
47.0%	3	`phi1`
41.6%	4	`(cos.f64 (-.f64 lambda1 lambda2))`
43.2%	4	`(-.f64 lambda1 lambda2)`
46.2%	3	`phi2`

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes14.0ms (0.1%)

Memory

-10.6MiB live, 35.4MiB allocated; 3ms collecting garbage

Counts

16 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

5.0ms	lambda1
5.0ms	lambda2

Results

Accuracy	Segments	Branch
45.5%	2	`lambda2`
45.4%	2	`lambda1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes31.0ms (0.2%)

Memory

22.5MiB live, 70.5MiB allocated; 11ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

5 calls:

12.0ms	phi2
4.0ms	(-.f64 lambda1 lambda2)
4.0ms	lambda2
4.0ms	phi1
4.0ms	lambda1

Results

Accuracy	Segments	Branch
37.8%	2	`(-.f64 lambda1 lambda2)`
38.7%	2	`phi2`
40.1%	3	`lambda1`
40.5%	3	`phi1`
35.5%	2	`lambda2`

Compiler

Compiled 7 to 26 computations (-271.4% saved)

regimes38.0ms (0.3%)

Memory

11.4MiB live, 104.3MiB allocated; 6ms collecting garbage

Counts

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

Outputs

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

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

Calls

8 calls:

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

Results

Accuracy	Segments	Branch
28.7%	2	`lambda2`
27.5%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
27.5%	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.4%	2	`(-.f64 lambda1 lambda2)`
32.9%	3	`lambda1`
35.3%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
35.0%	3	`phi2`
36.8%	3	`phi1`

Compiler

Compiled 40 to 64 computations (-60% saved)

regimes10.0ms (0.1%)

Memory

-19.1MiB live, 26.9MiB allocated; 3ms collecting garbage

Counts

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

Outputs

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

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

Calls

2 calls:

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

Results

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

Compiler

Compiled 7 to 13 computations (-85.7% saved)

regimes36.0ms (0.3%)

Memory

3.5MiB live, 150.2MiB allocated; 6ms 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 (- 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))) #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 2 binary64))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (/ (+ (sin (- (+ lambda2 (/ (PI) 2)) phi2)) (sin (+ (+ lambda2 (/ (PI) 2)) phi2))) 2) (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 phi1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))))))) 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

10 calls:

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

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes16.0ms (0.1%)

Memory

25.2MiB live, 72.2MiB allocated; 1ms 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:

3.0ms	(+.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	(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	(cos.f64 (-.f64 lambda1 lambda2))
1.0ms	lambda2

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

regimes14.0ms (0.1%)

Memory

-34.5MiB live, 62.3MiB allocated; 4ms collecting garbage

Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

2.0ms	(cos.f64 (-.f64 lambda1 lambda2))
2.0ms	phi1
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 (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))))

Results

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

Compiler

Compiled 58 to 86 computations (-48.3% saved)

bsearch138.0ms (1%)

Memory

34.8MiB live, 423.9MiB allocated; 20ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
65.0ms	2.4298440444011098e-89	1.3234826384353172e-70
66.0ms	-5.743026010840589e+25	-1.8795019057188972e+22

Samples

107.0ms	233×	1	valid
10.0ms	55×	0	valid

Compiler

Compiled 782 to 821 computations (-5% saved)

Precisions

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

ival-cos: 41.0ms (39% of total)

ival-sin: 33.0ms (31.4% of total)

ival-mult!: 11.0ms (10.5% of total)

adjust: 9.0ms (8.6% of total)

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

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

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

bsearch6.0ms (0%)

Memory

-33.7MiB live, 12.3MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.4298440444011098e-89	1.3234826384353172e-70
1.0ms	-5.743026010840589e+25	-1.8795019057188972e+22

Compiler

Compiled 728 to 767 computations (-5.4% saved)

bsearch73.0ms (0.5%)

Memory

12.2MiB live, 200.4MiB allocated; 16ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.4298440444011098e-89	1.3234826384353172e-70
67.0ms	-0.0024988234973990536	-8.398799564344781e-10

Samples

52.0ms	116×	1	valid
7.0ms	28×	0	valid

Compiler

Compiled 803 to 844 computations (-5.1% saved)

Precisions

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

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

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

adjust: 5.0ms (9.6% of total)

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

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

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

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

bsearch171.0ms (1.2%)

Memory

52.8MiB live, 411.8MiB allocated; 74ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
96.0ms	1.3069296425619944e-15	2.5651311170809758e-8
67.0ms	-3.7876888712317375e-14	-2.4683520784210613e-22

Samples

130.0ms	242×	1	valid
20.0ms	46×	0	valid

Compiler

Compiled 814 to 835 computations (-2.6% saved)

Precisions

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

ival-cos: 51.0ms (36.9% of total)

ival-sin: 35.0ms (25.3% of total)

ival-acos: 26.0ms (18.8% of total)

adjust: 12.0ms (8.7% of total)

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

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

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

bsearch81.0ms (0.6%)

Memory

-34.1MiB live, 116.5MiB allocated; 50ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
72.0ms	0.021010609805966682	309.3161847978787

Samples

54.0ms	59×	1	valid
11.0ms	69×	0	valid

Compiler

Compiled 398 to 417 computations (-4.8% saved)

Precisions

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

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

ival-sin: 9.0ms (24.8% of total)

adjust: 7.0ms (19.3% of total)

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

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.021010609805966682	309.3161847978787

Compiler

Compiled 438 to 457 computations (-4.3% saved)

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.021010609805966682	309.3161847978787

Compiler

Compiled 438 to 457 computations (-4.3% saved)

bsearch67.0ms (0.5%)

Memory

-1.2MiB live, 138.6MiB allocated; 18ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
63.0ms	8.600770415353421e+240	3.464816961183873e+242
1.0ms	0.021010609805966682	309.3161847978787

Samples

53.0ms	103×	1	valid
2.0ms	9×	0	valid

Compiler

Compiled 782 to 800 computations (-2.3% saved)

Precisions

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

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

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

adjust: 4.0ms (8% of total)

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

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

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

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

bsearch140.0ms (1%)

Memory

14.7MiB live, 291.8MiB allocated; 29ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
83.0ms	2.0705740704020104e-20	64866570654.527664
49.0ms	-0.0024988234973990536	-8.398799564344781e-10

Samples

99.0ms	231×	1	valid
12.0ms	57×	0	valid

Compiler

Compiled 888 to 920 computations (-3.6% saved)

Precisions

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

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

ival-sin: 24.0ms (24.8% of total)

ival-mult!: 13.0ms (13.4% of total)

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

adjust: 9.0ms (9.3% of total)

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.0705740704020104e-20	64866570654.527664
1.0ms	-0.0024988234973990536	-8.398799564344781e-10

Compiler

Compiled 1 008 to 1 040 computations (-3.2% saved)

bsearch108.0ms (0.8%)

Memory

-47.2MiB live, 121.2MiB allocated; 105ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
105.0ms	2.5651311170809758e-8	2.1983707270342792e-6

Samples

97.0ms	91×	1	valid
3.0ms	21×	0	valid

Compiler

Compiled 330 to 347 computations (-5.2% saved)

Precisions

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

ival-sin: 64.0ms (67.1% of total)

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

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

adjust: 6.0ms (6.3% of total)

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

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

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

bsearch52.0ms (0.4%)

Memory

16.6MiB live, 90.6MiB allocated; 26ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
50.0ms	2.5651311170809758e-8	2.1983707270342792e-6

Samples

31.0ms	70×	1	valid
2.0ms	10×	0	valid

Compiler

Compiled 463 to 438 computations (5.4% saved)

Precisions

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

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

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

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

adjust: 3.0ms (10.1% of total)

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

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

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

bsearch156.0ms (1.1%)

Memory

1.3MiB live, 238.3MiB allocated; 92ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
66.0ms	2.35022453051521e-156	2.6027237615868103e-151
62.0ms	-1.2775363222432944e-5	-1.3569296455640676e-6

Samples

95.0ms	152×	1	valid
15.0ms	83×	0	valid
3.0ms	5×	2	valid

Compiler

Compiled 1 072 to 961 computations (10.4% saved)

Precisions

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

ival-cos: 44.0ms (42.9% of total)

ival-acos: 19.0ms (18.5% of total)

adjust: 16.0ms (15.6% of total)

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

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

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.021010609805966682	309.3161847978787

Compiler

Compiled 478 to 441 computations (7.7% saved)

bsearch167.0ms (1.2%)

Memory

4.0MiB live, 236.2MiB allocated; 41ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
68.0ms	2.246601549683371e-183	9.15449297346983e-176
71.0ms	-206694877439.00214	-0.07464717312805784

Samples

106.0ms	239×	1	valid
9.0ms	57×	0	valid
3.0ms	6×	2	valid
3.0ms	2×	3	valid

Compiler

Compiled 1 217 to 1 173 computations (3.6% saved)

Precisions

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

ival-cos: 36.0ms (37.1% of total)

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

adjust: 18.0ms (18.5% of total)

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

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

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
0.0ms	-313.528334269003	-309.3161847978787

Compiler

Compiled 22 to 25 computations (-13.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
0.0ms	-313.528334269003	-309.3161847978787

Compiler

Compiled 22 to 25 computations (-13.6% saved)

derivations882.0ms (6.3%)

Memory

39.9MiB live, 866.4MiB allocated; 213ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 467 to 262 computations (43.9% saved)

preprocess1.6s (11.5%)

Memory

-234.6MiB live, 950.0MiB allocated; 1.8s collecting garbage

Remove

(sort phi1 phi2)

(sort lambda1 lambda2)

(negabs R)

Compiler

Compiled 10 114 to 7 587 computations (25% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze846.0ms (6%)

sample4.4s (31.5%)

preprocess59.0ms (0.4%)

series43.0ms (0.3%)

rewrite284.0ms (2%)

eval29.0ms (0.2%)

prune35.0ms (0.2%)

series109.0ms (0.8%)

rewrite261.0ms (1.9%)

eval84.0ms (0.6%)

prune69.0ms (0.5%)

series116.0ms (0.8%)

rewrite218.0ms (1.6%)

eval115.0ms (0.8%)

prune116.0ms (0.8%)

series88.0ms (0.6%)

rewrite201.0ms (1.4%)

eval76.0ms (0.5%)

prune157.0ms (1.1%)

regimes423.0ms (3%)

regimes448.0ms (3.2%)

regimes470.0ms (3.3%)

regimes57.0ms (0.4%)

regimes60.0ms (0.4%)

regimes111.0ms (0.8%)

regimes378.0ms (2.7%)

regimes386.0ms (2.7%)

regimes61.0ms (0.4%)

regimes50.0ms (0.4%)

regimes136.0ms (1%)

regimes98.0ms (0.7%)

regimes24.0ms (0.2%)

regimes38.0ms (0.3%)

regimes65.0ms (0.5%)

regimes76.0ms (0.5%)

regimes14.0ms (0.1%)

regimes31.0ms (0.2%)

regimes38.0ms (0.3%)

regimes10.0ms (0.1%)

regimes36.0ms (0.3%)

regimes16.0ms (0.1%)

regimes14.0ms (0.1%)

bsearch138.0ms (1%)

bsearch6.0ms (0%)

bsearch73.0ms (0.5%)

bsearch171.0ms (1.2%)

bsearch81.0ms (0.6%)

bsearch2.0ms (0%)

bsearch2.0ms (0%)

bsearch67.0ms (0.5%)

bsearch140.0ms (1%)

bsearch3.0ms (0%)

bsearch108.0ms (0.8%)

bsearch52.0ms (0.4%)

bsearch156.0ms (1.1%)

bsearch1.0ms (0%)

bsearch167.0ms (1.2%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

derivations882.0ms (6.3%)

preprocess1.6s (11.5%)

end0.0ms (0%)

Profiling