Metrics for Spherical law of cosines

start0.0ms (0.0%)

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

analyze916.0ms (2.6%)

Memory

26.2MiB live, 1 003.4MiB allocated; 238ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 21 to 19 computations (9.5% saved)

sample8.3s (23.7%)

Memory

-71.0MiB live, 5 669.5MiB allocated; 7.8s collecting garbage

Samples

4.0s	1 734×	0	valid
3.5s	6 379×	1	valid
65.0ms	115×	2	valid
38.0ms	28×	3	valid

Precisions

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

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

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

ival-mult!: 453.0ms (13.3% of total)

adjust: 311.0ms (9.1% of total)

ival-acos: 285.0ms (8.4% of total)

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

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

Bogosity

preprocess52.0ms (0.1%)

Memory

-1.4MiB live, 43.8MiB allocated; 11ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	130	412
1	572	412

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

(sort lambda1 lambda2)

(sort phi1 phi2)

Compiler

Compiled 38 to 34 computations (10.5% saved)

series86.0ms (0.2%)

Memory

19.4MiB live, 118.1MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	421	2529

Stop Event

1×	iter-limit

Counts

17 → 98

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable	Point
9.0ms	lambda2	inf
6.0ms	lambda1	inf
5.0ms	lambda1	-inf
4.0ms	lambda2	-inf
4.0ms	lambda2	0

rewrite159.0ms (0.5%)

Memory

-15.7MiB live, 217.0MiB allocated; 39ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	17	92
0	29	92
1	115	92
2	789	92
0	4167	92

Stop Event

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

Counts

17 → 274

Calls

Call 1

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

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

eval333.0ms (1.0%)

Memory

11.2MiB live, 474.2MiB allocated; 105ms collecting garbage

Samples

223.0ms

3 840×

valid

Compiler

Compiled 11 619 to 2 818 computations (75.7% saved)

Precisions

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

ival-mult!: 55.0ms (78.7% of total)

ival-sub!: 11.0ms (15.7% of total)

adjust: 4.0ms (5.7% of total)

prune119.0ms (0.3%)

Memory

40.7MiB live, 186.4MiB allocated; 20ms collecting garbage

Pruning

40 alts after pruning (40 fresh and 0 done)

	Pruned	Kept	Total
New	318	40	358
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	319	40	359

Accuracy

94.4%

Counts

359 → 40

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.5%	(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	73.5%	(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	73.6%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.5%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.5%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
	73.6%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))) R)
	57.6%	(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	73.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
▶	94.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
	94.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	32.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	32.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	32.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	73.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.0%	(.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 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (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))) (+.f64 (.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)
	73.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))))) R)
	94.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	94.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	35.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
▶	36.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	43.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))) R)
	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))) R)
	45.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))) R)
	47.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
	52.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))) R)
	53.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)
	42.7%	(.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)
	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
	52.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
	42.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	40.0%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	66.2%	(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	35.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)

Samples

53.0ms

1 024×

valid

Compiler

Compiled 2 654 to 1 882 computations (29.1% saved)

Precisions

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

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

ival-sub!: 3.0ms (17.4% of total)

adjust: 1.0ms (5.8% of total)

series259.0ms (0.7%)

Memory

2.1MiB live, 373.8MiB allocated; 72ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1724	17834

Stop Event

1×	iter-limit

Counts

63 → 409

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable	Point
24.0ms	phi1	-inf
22.0ms	lambda1	inf
16.0ms	phi1	inf
15.0ms	lambda2	-inf
12.0ms	phi2	0

rewrite282.0ms (0.8%)

Memory

12.6MiB live, 585.8MiB allocated; 78ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	73	741
0	129	606
1	579	511
2	3605	511
0	5616	511

Stop Event

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

Counts

63 → 1 225

Calls

Call 1

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

Outputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(/.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 1/2 binary64)) (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 (fabs.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)))) (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))))))
(neg.f64 (neg.f64 (cos.f64 phi1)))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (fabs.f64 (fabs.f64 phi1)))
(cos.f64 (fabs.f64 phi1))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 phi1))))
(+.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))
(.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal -1/2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (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 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (/.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
lambda2
(sin.f64 (+.f64 (fabs.f64 lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (neg.f64 lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 (fabs.f64 lambda2)))
(cos.f64 (neg.f64 (neg.f64 lambda2)))
(cos.f64 (fabs.f64 lambda2))
(cos.f64 (neg.f64 lambda2))
(cos.f64 lambda2)
(+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
lambda1
(sin.f64 (+.f64 (neg.f64 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 lambda1 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (neg.f64 lambda1)))
(cos.f64 (neg.f64 (fabs.f64 lambda1)))
(cos.f64 (fabs.f64 (fabs.f64 lambda1)))
(cos.f64 (neg.f64 lambda1))
(cos.f64 (fabs.f64 lambda1))
(cos.f64 lambda1)
(+.f64 (.f64 (sin.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(neg.f64 lambda2)
(neg.f64 (sin.f64 lambda2))
(sin.f64 (+.f64 lambda2 (PI.f64)))
(sin.f64 (neg.f64 lambda2))
(cos.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 lambda1)
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
R
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(*.f64 (sin.f64 phi2) phi1)
(*.f64 phi1 (sin.f64 phi2))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 (neg.f64 lambda2))) (neg.f64 lambda2))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (-.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (.f64 lambda1 lambda1)) (-.f64 (neg.f64 lambda2) lambda1))
(/.f64 (+.f64 (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (-.f64 (.f64 lambda1 lambda1) (*.f64 (neg.f64 lambda2) lambda1))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(neg.f64 (-.f64 lambda2 lambda1))
(-.f64 (neg.f64 lambda2) (neg.f64 lambda1))
(-.f64 lambda1 (neg.f64 (neg.f64 lambda2)))
(-.f64 lambda1 lambda2)
(+.f64 (neg.f64 lambda2) (neg.f64 (neg.f64 lambda1)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))) #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 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))))) (-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))) (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))))))
(neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))
(-.f64 (.f64 (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(*.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1)))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) phi2)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi2)) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (neg.f64 phi2))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi2))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi2)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (neg.f64 phi2))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi2))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (neg.f64 phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (neg.f64 phi2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (fabs.f64 phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (fabs.f64 phi2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 phi2 (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))) (cos.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda1) (cos.f64 lambda2) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda2) (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1))) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))) (+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1)) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (sin.f64 phi2) phi1) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) phi1) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) phi1)))
(-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (neg.f64 (sin.f64 phi2)) phi1))
(-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (neg.f64 phi1) (sin.f64 phi2)))
(-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (neg.f64 (.f64 (sin.f64 phi2) phi1)))
(-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))
(+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (neg.f64 (neg.f64 (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) phi1) (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))))))
(neg.f64 (-.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))
(.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal -1/2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (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 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (/.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda1) lambda2)) lambda2)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)
(/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 (neg.f64 lambda1) (neg.f64 lambda1))) (+.f64 lambda1 lambda2))
(/.f64 (+.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda1) #s(literal 3 binary64))) (+.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (neg.f64 lambda1) (neg.f64 lambda1)) (*.f64 lambda2 (neg.f64 lambda1)))))
(/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda1))))
(neg.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda2 (neg.f64 (neg.f64 lambda1)))
(-.f64 lambda2 lambda1)
(+.f64 (neg.f64 lambda1) (neg.f64 (neg.f64 lambda2)))
(+.f64 (neg.f64 lambda1) lambda2)
(+.f64 lambda2 (neg.f64 lambda1))
(PI.f64)
#s(literal 1/2 binary64)
(.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (*.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)))
(*.f64 (neg.f64 (neg.f64 (PI.f64))) #s(literal 1/2 binary64))
(*.f64 (neg.f64 (PI.f64)) #s(literal -1/2 binary64))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (*.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(/.f64 (*.f64 (PI.f64) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (PI.f64)) #s(literal 2 binary64))
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (PI.f64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(neg.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1))) (-.f64 lambda2 lambda1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) lambda2)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1))) (-.f64 lambda2 lambda1))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)))
(/.f64 (-.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (+.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 lambda2 (-.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (-.f64 lambda2 lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 lambda2 lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))
(/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64))) (+.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (-.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(/.f64 (-.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (pow.f64 (-.f64 lambda2 lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(neg.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)))
(neg.f64 (-.f64 (-.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1)
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2))
(-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(-.f64 lambda2 (-.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 lambda1))
(+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1))
(+.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(+.f64 lambda2 (-.f64 (neg.f64 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(+.f64 lambda2 (neg.f64 (-.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 lambda2 (+.f64 (neg.f64 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))) #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 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))))) (-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))) (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))))))
(neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))
(-.f64 (.f64 (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(neg.f64 phi1)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 phi1))) (neg.f64 phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 phi1))) (neg.f64 phi1))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (neg.f64 phi1) (neg.f64 phi1))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 phi1)))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (+.f64 (neg.f64 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi1) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (neg.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 (neg.f64 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (pow.f64 (neg.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(neg.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 phi1)))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (neg.f64 phi1)))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(-.f64 (neg.f64 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 phi1))
(+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 phi1))) (neg.f64 phi1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (neg.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (neg.f64 phi2) (neg.f64 phi2))) (-.f64 (-.f64 phi2 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 (.f64 (neg.f64 phi2) (neg.f64 phi2)) (.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (neg.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (neg.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 phi2)) (-.f64 (-.f64 phi2 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.f64 phi2 phi2) (.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))
(neg.f64 (-.f64 (+.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (neg.f64 phi2)))
(-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)
(-.f64 (neg.f64 phi1) (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 phi2)))
(-.f64 (neg.f64 phi1) (+.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) phi2))
(-.f64 (neg.f64 phi1) (neg.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 phi1))
(+.f64 (neg.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 (neg.f64 phi1) (neg.f64 phi2)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 (neg.f64 phi1) phi2))
(+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 phi2))
(+.f64 (neg.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)))) (cos.f64 (-.f64 phi2 phi1)))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(neg.f64 (sin.f64 (-.f64 (+.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)))
(+.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2))))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2))))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (neg.f64 phi2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (neg.f64 phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) phi2)
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (-.f64 (neg.f64 phi1) (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64)))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (neg.f64 phi2) (neg.f64 phi2))) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))
(/.f64 (-.f64 (.f64 phi2 phi2) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (-.f64 (+.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (pow.f64 (neg.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (-.f64 (.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (neg.f64 phi1) (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))
(/.f64 (+.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) #s(literal 3 binary64))) (+.f64 (.f64 phi2 phi2) (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.f64 (neg.f64 phi2) (neg.f64 phi2)) (.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 phi2)))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 phi2)) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))
(/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 (.f64 phi2 phi2) (.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))
(neg.f64 (-.f64 (neg.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(-.f64 (-.f64 phi2 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 phi2))
(-.f64 (neg.f64 phi1) (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) phi2))
(-.f64 (neg.f64 phi1) (+.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 phi2)))
(-.f64 (neg.f64 phi1) (neg.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64)))))
(-.f64 phi2 (neg.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(+.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))
(+.f64 (-.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 (neg.f64 phi1) (neg.f64 phi2)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 (neg.f64 phi1) phi2))
(+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (neg.f64 phi2)))
(+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)
(+.f64 (neg.f64 phi1) (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(+.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2))))))
(sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (-.f64 phi2 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (sin.f64 phi2)))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (neg.f64 phi2))))
(cos.f64 (fabs.f64 (-.f64 phi1 phi2)))
(cos.f64 (fabs.f64 (-.f64 phi2 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos.f64 (-.f64 phi1 phi2))
(+.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2))))
(+.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (cos.f64 (-.f64 phi2 phi1)))) (cos.f64 (-.f64 phi2 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))
(.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (cos.f64 (/.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)))))
(.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))
(/.f64 (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (neg.f64 (cos.f64 (-.f64 phi2 phi1))))) (+.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (neg.f64 (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (+.f64 (.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (neg.f64 (cos.f64 (-.f64 phi2 phi1)))) (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (neg.f64 (cos.f64 (-.f64 phi2 phi1)))))))
(/.f64 (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (-.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (cos.f64 (-.f64 phi2 phi1))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (cos.f64 (-.f64 phi2 phi1))))))
(neg.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) (cos.f64 (-.f64 phi2 phi1))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) (neg.f64 (cos.f64 (-.f64 phi2 phi1)))))
(-.f64 (cos.f64 (-.f64 phi2 phi1)) (neg.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))
(-.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (neg.f64 (cos.f64 (-.f64 phi2 phi1))))
(+.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 phi2)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))
(+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))
(+.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (neg.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1)))))
(+.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (cos.f64 (-.f64 phi2 phi1)))
#s(literal 2 binary64)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))
(.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal -1/2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (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 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (/.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(*.f64 #s(literal -1/2 binary64) (PI.f64))
(*.f64 (neg.f64 (PI.f64)) #s(literal 1/2 binary64))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (*.f64 (cbrt.f64 (PI.f64)) #s(literal -1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (neg.f64 (PI.f64)))
(*.f64 (PI.f64) #s(literal -1/2 binary64))
(/.f64 (*.f64 (neg.f64 (PI.f64)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (neg.f64 (PI.f64)) #s(literal 2 binary64))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(sin.f64 (+.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 (neg.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 phi1 (neg.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 (fabs.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 phi1 (fabs.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))) (sin.f64 (+.f64 phi1 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1))))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 2 binary64))
(+.f64 (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(cos.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) phi1)) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (PI.f64)) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (PI.f64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (fabs.f64 phi1))) (sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 phi1))) (sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(neg.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)))) (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))))))
(neg.f64 (neg.f64 (cos.f64 phi1)))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (fabs.f64 (fabs.f64 phi1)))
(cos.f64 (fabs.f64 phi1))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 phi1))))
(+.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))
(.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal -1/2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2) (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 phi2 phi1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (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 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (/.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))))) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (+.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi1)) #s(literal 1/2 binary64) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))

eval4.5s (12.8%)

Memory

144.1MiB live, 6 047.2MiB allocated; 1.3s collecting garbage

Samples

3.3s	57 386×	0	valid
140.0ms	2 262×	0	invalid

Compiler

Compiled 63 392 to 9 620 computations (84.8% saved)

Precisions

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

ival-mult!: 847.0ms (76.8% of total)

ival-sub!: 191.0ms (17.3% of total)

adjust: 66.0ms (6.0% of total)

prune371.0ms (1.1%)

Memory

2.4MiB live, 519.7MiB allocated; 91ms collecting garbage

Pruning

81 alts after pruning (81 fresh and 0 done)

	Pruned	Kept	Total
New	1 297	59	1 356
Fresh	13	22	35
Picked	5	0	5
Done	0	0	0
Total	1 315	81	1 396

Accuracy

94.5%

Counts

1 396 → 81

Alt Table

Click to see full alt table

Status	Accuracy	Program
	36.3%	(.f64 (/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))))))) R)
	73.5%	(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	36.3%	(.f64 (/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))))) R)
	73.6%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.4%	(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
	73.5%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.5%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
	36.3%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
	73.5%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	32.8%	(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	57.6%	(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	94.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
	73.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)))) R)
▶	94.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2) (+.f64 (.f64 (sin.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
	52.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2) #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
	55.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64)))) R)
	32.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	31.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) ( (PI) 1/2)) phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) ( (PI) 1/2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	32.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	73.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (.f64 (cbrt.f64 (PI.f64)) #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (.f64 (cbrt.f64 (PI.f64)) #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	73.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal -1/2 binary64))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	34.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	23.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	45.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	24.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	45.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.0%	(.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 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	94.0%	(.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))) (+.f64 (.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)
	73.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))))) R)
	94.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	35.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
	33.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	34.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	34.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) (* (PI) 1/2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) R)
	43.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))) R)
▶	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))) R)
	47.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
	53.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)
	31.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ (neg phi1) ( (PI) 1/2)) phi2)) (sin (+ (+ (neg phi1) (* (PI) 1/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 (-.f64 lambda1 lambda2))))) R)
	42.7%	(.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)
	30.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (+ (sin (- (+ (neg phi1) (* (PI) 1/2)) phi2)) (sin (+ (+ (neg phi1) (* (PI) 1/2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) R)
	25.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (+ (sin (- (+ (neg phi1) (* (PI) 1/2)) phi2)) (sin (+ (+ (neg phi1) (* (PI) 1/2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
	52.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1)))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2)))))))) R)
	52.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1)))) (.f64 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2)))))))) R)
	52.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	22.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	22.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	52.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
	42.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	40.0%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	43.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	66.2%	(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	45.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2)))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	35.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	46.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))))) R)
	12.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))) (cos.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
	12.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) phi2)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) phi2))) #s(literal 2 binary64))))) R)
	26.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))))))) R)
	46.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)))))) R)
	23.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	23.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
	46.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))) R)
	15.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))) R)
	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))) R)
	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))))) R)
	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))) R)
	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))) R)
	24.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
	24.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
	23.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	43.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)

Samples

189.0ms

3 072×

valid

Compiler

Compiled 6 256 to 4 448 computations (28.9% saved)

Precisions

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

ival-mult!: 48.0ms (73.7% of total)

ival-sub!: 13.0ms (20.0% of total)

adjust: 3.0ms (4.6% of total)

series176.0ms (0.5%)

Memory

25.9MiB live, 264.8MiB allocated; 53ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1300	11571

Stop Event

1×	iter-limit

Counts

66 → 309

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable	Point
18.0ms	lambda1	inf
13.0ms	phi1	-inf
12.0ms	lambda2	inf
9.0ms	lambda2	-inf
9.0ms	lambda1	-inf

rewrite253.0ms (0.7%)

Memory

-20.3MiB live, 474.7MiB allocated; 99ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	79	755
0	138	693
1	580	598
2	3356	598
0	5098	598

Stop Event

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

Counts

66 → 834

Calls

Call 1

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

Outputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(/.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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)))) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))))
(neg.f64 (neg.f64 (cos.f64 phi2)))
(sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(-.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 (fabs.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (fabs.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 phi1))
(cos.f64 (fabs.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (cos.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi1) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (cos.f64 phi1) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)))
lambda2
(sin.f64 (+.f64 (fabs.f64 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (neg.f64 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 lambda2))
(cos.f64 (neg.f64 lambda2))
(cos.f64 lambda2)
(+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
lambda1
(sin.f64 lambda1)
#s(literal 1/2 binary64)
(PI.f64)
(.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (*.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)))
(*.f64 (neg.f64 (PI.f64)) #s(literal -1/2 binary64))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (*.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)))
(*.f64 #s(literal -1/2 binary64) (neg.f64 (PI.f64)))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (PI.f64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(neg.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal 1/2 binary64)))
(sin.f64 (+.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (+.f64 (sin.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1)) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))
(.f64 (sin.f64 lambda1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda1 (neg.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 lambda1 (neg.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda1 (fabs.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 lambda1 (fabs.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1)) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda1 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda1 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))) (sin.f64 (+.f64 lambda1 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1))))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1)) #s(literal 2 binary64))
(+.f64 (/.f64 (sin.f64 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (/.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (sin.f64 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (-.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))))
(sin.f64 (+.f64 (neg.f64 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 lambda1 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(-.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))))
(-.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 lambda1)))
(cos.f64 (neg.f64 (fabs.f64 lambda1)))
(cos.f64 (fabs.f64 (fabs.f64 lambda1)))
(cos.f64 (neg.f64 lambda1))
(cos.f64 (fabs.f64 lambda1))
(cos.f64 lambda1)
(+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (neg.f64 (cos.f64 lambda1))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (neg.f64 lambda1)))) (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (neg.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (fabs.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (fabs.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda1))) (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (fabs.f64 lambda1))) (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1)) (cos.f64 lambda1)) #s(literal 2 binary64))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1)) #s(literal 1/2 binary64) (neg.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1)) #s(literal 1/2 binary64) (neg.f64 (cos.f64 lambda1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1)) #s(literal 1/2 binary64) (cos.f64 lambda1) (neg.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1)) #s(literal 1/2 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (cos.f64 lambda1)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 lambda1))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda1)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1) (neg.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 lambda1))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda1)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1) (neg.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1) (cos.f64 lambda1) (neg.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (cos.f64 lambda1)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (cos.f64 lambda1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1) (neg.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (cos.f64 lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda1))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (sin.f64 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (-.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))))
(sin.f64 (+.f64 (neg.f64 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 lambda1 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(-.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))))
(-.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 lambda1)))
(cos.f64 (neg.f64 (fabs.f64 lambda1)))
(cos.f64 (fabs.f64 (fabs.f64 lambda1)))
(cos.f64 (neg.f64 lambda1))
(cos.f64 (fabs.f64 lambda1))
(cos.f64 lambda1)
(+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (neg.f64 (cos.f64 lambda1))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(neg.f64 lambda2)
(neg.f64 (sin.f64 lambda2))
(sin.f64 (+.f64 lambda2 (PI.f64)))
(sin.f64 (neg.f64 lambda2))
(cos.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (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 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
R
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 (neg.f64 lambda2))) (neg.f64 lambda2))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (-.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (.f64 lambda1 lambda1)) (-.f64 (neg.f64 lambda2) lambda1))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (+.f64 (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (-.f64 (.f64 lambda1 lambda1) (*.f64 (neg.f64 lambda2) 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))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(neg.f64 (-.f64 lambda2 lambda1))
(-.f64 (neg.f64 lambda2) (neg.f64 lambda1))
(-.f64 lambda1 lambda2)
(+.f64 (neg.f64 lambda2) (neg.f64 (neg.f64 lambda1)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))) #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 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))) (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))))))
(neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))
(-.f64 (.f64 (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(*.f64 phi2 phi1)
(*.f64 phi1 phi2)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 phi1) phi2) (cos.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (-.f64 (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))) (-.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (neg.f64 phi1) phi2) (.f64 (neg.f64 phi1) phi2))) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (neg.f64 phi1) phi2)))
(/.f64 (+.f64 (pow.f64 (.f64 phi2 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 phi1) phi2) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (.f64 (.f64 (neg.f64 phi1) phi2) (.f64 (neg.f64 phi1) phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (neg.f64 phi1) phi2)))))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1))) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 phi2 phi1)))
(/.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 phi2 phi1) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 phi2 phi1)))))
(neg.f64 (-.f64 (*.f64 (neg.f64 phi1) phi2) (cos.f64 (-.f64 lambda2 lambda1))))
(-.f64 (*.f64 phi2 phi1) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))))
(-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (neg.f64 phi1) phi2))
(+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 phi2 phi1)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (neg.f64 phi1) phi2)))
(+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (neg.f64 (neg.f64 phi1)) phi2))
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (*.f64 (neg.f64 phi1) phi2)))
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 phi2 phi1))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))))))
(neg.f64 (-.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (neg.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))
(*.f64 (sin.f64 phi2) phi1)
(*.f64 phi1 (sin.f64 phi2))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (cos.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi1) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (cos.f64 phi1) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(/.f64 (-.f64 (.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))))
(/.f64 (-.f64 (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (-.f64 (.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(-.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))))
#s(literal -1/2 binary64)
(.f64 (.f64 #s(literal -1/2 binary64) (cbrt.f64 (*.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)))
(*.f64 (neg.f64 (PI.f64)) #s(literal 1/2 binary64))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (*.f64 (cbrt.f64 (PI.f64)) #s(literal -1/2 binary64)))
(*.f64 #s(literal -1/2 binary64) (PI.f64))
(*.f64 (PI.f64) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (neg.f64 (PI.f64)))
(neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) phi2)
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) phi2)) phi2)
(/.f64 (+.f64 (*.f64 phi2 #s(literal 2 binary64)) (PI.f64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 phi2 phi2) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 phi2 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) #s(literal 3 binary64))) (+.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))))
(neg.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) phi2))
(-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)
(+.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)))) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))))
(neg.f64 (neg.f64 (cos.f64 phi2)))
(sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(-.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 (fabs.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (neg.f64 (cos.f64 phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (cos.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi1) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (cos.f64 phi1) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda1) lambda2)) lambda2)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)
(/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 (neg.f64 lambda1) (neg.f64 lambda1))) (-.f64 lambda2 (neg.f64 lambda1)))
(/.f64 (+.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda1) #s(literal 3 binary64))) (+.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (neg.f64 lambda1) (neg.f64 lambda1)) (*.f64 lambda2 (neg.f64 lambda1)))))
(/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1))
(/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda1))))
(neg.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda2 (neg.f64 (neg.f64 lambda1)))
(-.f64 lambda2 lambda1)
(+.f64 (neg.f64 lambda1) lambda2)
(+.f64 lambda2 (neg.f64 lambda1))
(.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (*.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)))
(*.f64 (neg.f64 (PI.f64)) #s(literal -1/2 binary64))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (*.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)))
(*.f64 #s(literal -1/2 binary64) (neg.f64 (PI.f64)))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (PI.f64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(neg.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1))) (-.f64 lambda2 lambda1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64))) lambda2)) lambda2)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 lambda2 lambda1))) (-.f64 lambda2 lambda1))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1))) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 lambda2 lambda1)))
(/.f64 (-.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (+.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (+.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 lambda2 lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 lambda2 lambda1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 lambda2 lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))
(/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (-.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 lambda2 lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)))
(neg.f64 (-.f64 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64))) lambda2))
(-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1)
(-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 lambda1 lambda2))
(-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(+.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 lambda1))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 lambda2 lambda1))
(+.f64 (-.f64 lambda2 lambda1) (*.f64 (neg.f64 (neg.f64 (PI.f64))) #s(literal 1/2 binary64)))
(+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(+.f64 lambda2 (-.f64 (neg.f64 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(+.f64 lambda2 (neg.f64 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 lambda2 (+.f64 (neg.f64 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))) #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 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))) (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))))))
(neg.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1))
(-.f64 (.f64 (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2) (cos.f64 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda2) (sin.f64 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1))
(134-z0z1z2z3z4 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (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 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(sin.f64 (+.f64 (fabs.f64 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (neg.f64 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 lambda2))
(cos.f64 (neg.f64 lambda2))
(cos.f64 lambda2)
(+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(literal -1 binary64)
(.f64 (.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 lambda2))) lambda1)
(.f64 (.f64 #s(literal 1 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))
(*.f64 (neg.f64 (neg.f64 lambda1)) (neg.f64 (sin.f64 lambda2)))
(.f64 (.f64 (neg.f64 lambda1) (sin.f64 lambda2)) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (.f64 (neg.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (neg.f64 lambda1) (sin.f64 lambda2))
(.f64 (.f64 (sin.f64 lambda2) lambda1) #s(literal -1 binary64))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) lambda1))
(*.f64 (neg.f64 (sin.f64 lambda2)) lambda1)
(*.f64 lambda1 (neg.f64 (sin.f64 lambda2)))
(neg.f64 (*.f64 (sin.f64 lambda2) lambda1))
(.f64 (.f64 #s(literal -1 binary64) (neg.f64 (sin.f64 lambda2))) lambda1)
(.f64 (.f64 (neg.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))
(*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda2) lambda1)
(.f64 #s(literal -1 binary64) (.f64 (neg.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 lambda1))
(.f64 lambda1 (.f64 (neg.f64 (sin.f64 lambda2)) #s(literal -1 binary64)))
(*.f64 lambda1 (sin.f64 lambda2))
(neg.f64 (*.f64 (neg.f64 lambda1) (sin.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda2) lambda1))) (*.f64 (sin.f64 lambda2) lambda1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 lambda1) (sin.f64 lambda2)) (cos.f64 lambda2))) (cos.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (cos.f64 lambda2))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) lambda1) (.f64 (sin.f64 lambda2) lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda2))) (-.f64 (*.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (neg.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) lambda1) (.f64 (sin.f64 lambda2) lambda1)) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (*.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 (neg.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (sin.f64 lambda2))))))
(/.f64 (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (sin.f64 lambda2) lambda1) (.f64 (sin.f64 lambda2) lambda1))) (-.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) lambda1)))
(/.f64 (+.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) lambda1) (.f64 (sin.f64 lambda2) lambda1)) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) lambda1)))))
(neg.f64 (-.f64 (*.f64 (neg.f64 lambda1) (sin.f64 lambda2)) (cos.f64 lambda2)))
(-.f64 (*.f64 (sin.f64 lambda2) lambda1) (neg.f64 (cos.f64 lambda2)))
(-.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (*.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))
(+.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) lambda1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (*.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))
(.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (*.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (*.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (*.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))))
(.f64 (cos.f64 phi1) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (*.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (+.f64 (*.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))))
(/.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (cos.f64 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (cos.f64 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (cos.f64 phi1)) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2))
(134-z0z1z2z3z4 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (cos.f64 phi1)) (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (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 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.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 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (*.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
(neg.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (neg.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))))
(+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (neg.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))

eval5.4s (15.4%)

Memory

211.0MiB live, 8 844.7MiB allocated; 1.4s collecting garbage

Samples

4.1s	65 731×	0	valid
176.0ms	2 877×	0	invalid

Compiler

Compiled 47 119 to 6 771 computations (85.6% saved)

Precisions

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

ival-mult!: 1.2s (76.3% of total)

ival-sub!: 260.0ms (17.0% of total)

adjust: 103.0ms (6.7% of total)

prune433.0ms (1.2%)

Memory

2.9MiB live, 827.2MiB allocated; 77ms collecting garbage

Pruning

104 alts after pruning (103 fresh and 1 done)

	Pruned	Kept	Total
New	958	38	996
Fresh	11	65	76
Picked	5	0	5
Done	-1	1	0
Total	973	104	1 077

Accuracy

94.5%

Counts

1 077 → 104

Alt Table

Click to see full alt table

Status	Accuracy	Program
	19.6%	(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))))) R)
	73.5%	(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	36.3%	(.f64 (/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))))) R)
	73.6%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	43.1%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))) R)
	19.6%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
	36.4%	(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
	73.5%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	43.0%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))) R)
	73.5%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
	43.0%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
	36.3%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
	19.5%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
	32.8%	(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	57.6%	(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))) R)
▶	94.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
	73.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)))) R)
	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
	52.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2) #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
	55.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64)))) R)
	32.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	31.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) ( (PI) 1/2)) phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) ( (PI) 1/2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	32.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	73.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal -1/2 binary64))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	34.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	23.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	45.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))) R)
	22.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	45.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.0%	(.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 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	94.0%	(.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))) (+.f64 (.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)
	94.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	35.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
	34.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
▶	34.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) (* (PI) 1/2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) R)
	43.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))) R)
	47.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
	34.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda2) lambda1))) (*.f64 (sin.f64 lambda2) lambda1)))))) R)
	53.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)
	21.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 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))))) R)
	23.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)))))))) R)
	31.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ (neg phi1) ( (PI) 1/2)) phi2)) (sin (+ (+ (neg phi1) (* (PI) 1/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 (-.f64 lambda1 lambda2))))) R)
	18.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (- phi2 (* -1/2 (PI))))) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	42.7%	(.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)
	30.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (+ (sin (- (+ (neg phi1) (* (PI) 1/2)) phi2)) (sin (+ (+ (neg phi1) (* (PI) 1/2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) R)
	25.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (+ (sin (- (+ (neg phi1) (* (PI) 1/2)) phi2)) (sin (+ (+ (neg phi1) (* (PI) 1/2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
	52.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1)))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2)))))))) R)
	52.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1)))) (.f64 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2)))))))) R)
	52.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	22.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	22.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	52.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
	42.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	40.0%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
	17.7%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))))))) R)
	28.9%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))) R)
	29.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	66.2%	(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	45.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2)))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	35.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	46.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1)))))) R)
	12.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) phi2)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) phi2))) #s(literal 2 binary64))))) R)
	26.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))))))) R)
	46.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)))))) R)
	23.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	23.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
▶	46.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))) R)
	15.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))) R)
	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))) R)
	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))))) R)
	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))) R)
	24.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
	24.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
	43.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
	24.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 phi1 phi2))))) R)
	8.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1)) (.f64 phi1 phi2))))) R)
	8.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 phi1 phi2))))) R)
	11.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
✓	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
▶	9.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))) (.f64 phi1 phi2))))) R)
	9.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (*.f64 phi1 phi2))))) R)
	9.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))) (*.f64 phi1 phi2))))) R)
	10.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
	11.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
	12.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
	43.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
▶	12.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)

Samples

201.0ms

3 072×

valid

Compiler

Compiled 8 309 to 5 826 computations (29.9% saved)

Precisions

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

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

ival-sub!: 11.0ms (16.2% of total)

adjust: 5.0ms (7.4% of total)

series252.0ms (0.7%)

Memory

12.5MiB live, 485.4MiB allocated; 50ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1469	12334

Stop Event

1×	iter-limit

Counts

66 → 341

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable	Point
47.0ms	lambda2	-inf
14.0ms	lambda1	inf
14.0ms	lambda1	-inf
11.0ms	lambda2	inf
11.0ms	phi1	inf

rewrite285.0ms (0.8%)

Memory

-7.3MiB live, 654.6MiB allocated; 53ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	85	1010
0	142	949
1	643	920
2	3560	920
0	5792	920

Stop Event

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

Counts

66 → 682

Calls

Call 1

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

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

eval5.3s (15.0%)

Memory

263.3MiB live, 6 455.8MiB allocated; 1.0s collecting garbage

Samples

4.0s	71 040×	0	valid
182.0ms	3 200×	0	invalid

Compiler

Compiled 57 861 to 8 239 computations (85.8% saved)

Precisions

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

ival-mult!: 1.1s (77.1% of total)

ival-sub!: 240.0ms (16.8% of total)

adjust: 87.0ms (6.1% of total)

prune314.0ms (0.9%)

Memory

29.9MiB live, 455.8MiB allocated; 52ms collecting garbage

Pruning

115 alts after pruning (111 fresh and 4 done)

	Pruned	Kept	Total
New	1 064	43	1 107
Fresh	30	68	98
Picked	5	0	5
Done	-3	4	1
Total	1 096	115	1 211

Accuracy

94.5%

Counts

1 211 → 115

Alt Table

Click to see full alt table

Status	Accuracy	Program
	12.6%	(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1))))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1)))))))))) R)
	73.5%	(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	36.3%	(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))))) R)
	73.6%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	43.1%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))) R)
	36.4%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) R)
	19.6%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
	12.6%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
	34.6%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (sin.f64 #s(approx (+ (- lambda2 lambda1) ( (PI) 1/2)) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.5%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	43.0%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))) R)
	73.5%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
	43.0%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
	36.3%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64))) R)
	19.5%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
	12.5%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
	32.8%	(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	57.6%	(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (sin.f64 lambda2) lambda1) (cos.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))) R)
	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
	93.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
✓	94.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
	73.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (sin.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1)))) R)
	94.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
	52.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2) #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)
	31.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) ( (PI) 1/2)) phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) ( (PI) 1/2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	32.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	73.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal -1/2 binary64))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	56.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	23.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (-.f64 phi1 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) ( (PI) 1/2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) R)
	45.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))) R)
	22.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	45.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	23.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 #s(approx (+ (- lambda2 lambda1) ( (PI) 1/2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) R)
	46.0%	(.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 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	94.0%	(.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))) (+.f64 (.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)
	94.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	35.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
	34.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 #s(approx (- lambda2 lambda1) lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	31.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) (* (PI) 1/2)) #s(approx (- (* 1/2 (PI)) lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
	20.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) (* (PI) 1/2)) #s(approx (- (* 1/2 (PI)) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))))) R)
	43.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))) R)
	47.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
	53.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)
	21.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 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))))) R)
	23.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
	45.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)))))))) R)
	31.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ (neg phi1) ( (PI) 1/2)) phi2)) (sin (+ (+ (neg phi1) (* (PI) 1/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 (-.f64 lambda1 lambda2))))) R)
	18.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (sin (- phi2 (* -1/2 (PI))))) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
	20.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) (* (PI) 1/2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) R)
	42.7%	(.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)
	30.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (+ (sin (- (+ (neg phi1) (* (PI) 1/2)) phi2)) (sin (+ (+ (neg phi1) (* (PI) 1/2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) R)
	25.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (+ (sin (- (+ (neg phi1) (* (PI) 1/2)) phi2)) (sin (+ (+ (neg phi1) (* (PI) 1/2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
	52.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1)))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2)))))))) R)
	52.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1)))) (.f64 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2)))))))) R)
	52.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	22.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	22.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	52.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
	42.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	16.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda2 lambda1) ( (PI) 1/2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) R)
	40.0%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
	17.7%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))))))) R)
	28.9%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))) R)
	29.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	66.2%	(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	45.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi2) (cos phi1)) (- (* (cos lambda2) (cos lambda1)) (* (sin (neg lambda2)) (sin lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2)))))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	15.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda2 lambda1) (* (PI) 1/2))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	46.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2))) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2))))) R)
	35.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	46.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1))))) R)
	12.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) phi2)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 (*.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1) phi2))) #s(literal 2 binary64))))) R)
	26.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))))))))) R)
	23.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	23.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))))) R)
✓	46.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))) R)
	24.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2))))))) R)
	27.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (sin.f64 lambda2))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))) R)
	15.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))) R)
	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))) R)
	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))) R)
	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))) R)
	24.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
	24.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
	43.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	24.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))))) (+.f64 (.f64 phi1 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	24.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
	9.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 lambda1 (cos.f64 lambda2)) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))))))) R)
	8.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1)) (.f64 phi1 phi2))))) R)
	8.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 phi1 phi2))))) R)
✓	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
	8.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 #s(approx ( -1/2 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (.f64 phi1 phi2))))) R)
	9.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- ( -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))))))) (.f64 phi1 phi2))))) R)
	9.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))) (*.f64 phi1 phi2))))) R)
	10.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
	11.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
	4.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))) (*.f64 phi1 phi2))))) R)
	43.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
	6.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1)) (.f64 phi1 phi2)))))) R)
	6.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (-.f64 lambda1 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
✓	12.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
	2.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
	8.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
	12.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
	12.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)

Samples

147.0ms

2 560×

valid

Compiler

Compiled 4 820 to 3 357 computations (30.4% saved)

Precisions

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

ival-mult!: 36.0ms (77.3% of total)

ival-sub!: 8.0ms (17.2% of total)

adjust: 3.0ms (6.4% of total)

regimes2.5s (7.2%)

Memory

74.4MiB live, 3 644.3MiB allocated; 516ms collecting garbage

Counts

1 → 1

2 → 1

3 → 2

13 → 1

19 → 1

21 → 1

58 → 2

82 → 2

83 → 2

87 → 2

129 → 1

133 → 3

140 → 3

144 → 3

150 → 3

151 → 1

181 → 1

Calls

Call 1

Inputs

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

Outputs

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

Call 2

Inputs

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

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

Outputs

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

Call 3

Inputs

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

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

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

Outputs

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

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

Call 4

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

Outputs

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

Call 5

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

Outputs

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

Call 6

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

Outputs

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

Call 7

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

Outputs

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

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

Call 8

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

Outputs

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

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

Call 9

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

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

Call 10

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

Outputs

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

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

Call 11

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

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

Call 12

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

Outputs

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

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

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

Call 13

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

Outputs

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

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

Call 14

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

Outputs

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

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

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

Call 15

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

Outputs

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

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

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

Call 16

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

Call 17

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

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (134-z0z1z2z3z4 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2) (cos.f64 lambda1) (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))) R)

Calls

112 calls:

82.0ms	lambda1
50.0ms	phi1
47.0ms	(-.f64 lambda1 lambda2)
46.0ms	lambda2
44.0ms	phi2

Results

Accuracy	Segments	Branch
2.7%	1	`lambda2`
2.7%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
2.7%	1	`R`
2.7%	1	`(-.f64 lambda1 lambda2)`
2.7%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
2.7%	1	`phi2`
2.7%	1	`lambda1`
2.7%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
2.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
2.7%	1	`phi1`
12.6%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
12.6%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
12.6%	1	`phi1`
12.6%	1	`(-.f64 lambda1 lambda2)`
12.6%	1	`lambda1`
12.6%	1	`lambda2`
12.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)))))`
12.6%	1	`phi2`
16.0%	3	`(-.f64 lambda1 lambda2)`
12.6%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
19.5%	2	`lambda2`
12.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)`
12.6%	1	`R`
12.6%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
19.5%	2	`lambda1`
12.6%	1	`phi1`
19.6%	1	`(-.f64 lambda1 lambda2)`
19.6%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
19.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)))))`
19.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)`
19.6%	1	`lambda2`
19.6%	1	`phi2`
19.6%	1	`lambda1`
19.6%	1	`phi1`
19.6%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
19.6%	1	`R`
19.7%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
19.7%	1	`lambda1`
19.7%	1	`phi2`
19.7%	1	`phi1`
19.7%	1	`(-.f64 lambda1 lambda2)`
19.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
19.7%	1	`lambda2`
19.7%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
19.7%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
19.7%	1	`R`
43.3%	1	`lambda2`
43.3%	1	`lambda1`
43.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)))))`
43.3%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
43.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)`
43.3%	1	`R`
43.3%	1	`(-.f64 lambda1 lambda2)`
43.3%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
43.3%	1	`phi2`
43.3%	1	`phi1`
46.0%	2	`lambda2`
57.4%	2	`phi1`
58.0%	3	`(-.f64 lambda1 lambda2)`
57.3%	2	`phi2`
57.6%	2	`phi1`
50.6%	4	`lambda1`
64.6%	2	`lambda1`
57.4%	2	`lambda2`
65.9%	3	`phi1`
60.4%	4	`(cos.f64 (-.f64 lambda1 lambda2))`
53.8%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
73.4%	2	`lambda1`
73.4%	2	`lambda2`
59.8%	3	`(-.f64 lambda1 lambda2)`
53.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)))))`
55.8%	2	`R`
66.7%	4	`phi2`
55.8%	2	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
73.7%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
73.7%	1	`lambda2`
73.7%	1	`lambda1`
73.7%	1	`phi2`
73.7%	1	`phi1`
83.8%	3	`phi1`
83.8%	3	`phi1`
83.8%	3	`phi1`
73.7%	1	`(-.f64 lambda1 lambda2)`
73.7%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
73.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
73.7%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
73.7%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
73.7%	1	`R`
76.8%	2	`lambda1`
76.5%	2	`lambda2`
83.8%	3	`phi1`
83.5%	3	`phi2`
94.1%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
94.1%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
94.1%	1	`lambda2`
94.1%	1	`phi1`
94.1%	1	`(-.f64 lambda1 lambda2)`
94.1%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
94.1%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
94.1%	1	`R`
94.1%	1	`phi2`
94.1%	1	`lambda1`
94.1%	1	`(-.f64 lambda1 lambda2)`
94.1%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
94.1%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
94.1%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
94.1%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
94.1%	1	`R`
94.1%	1	`lambda1`
94.1%	1	`lambda2`
94.1%	1	`phi1`
94.1%	1	`phi2`

Samples

196.0ms

3 584×

valid

Compiler

Compiled 8 402 to 2 168 computations (74.2% saved)

Precisions

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

ival-mult!: 50.0ms (74.3% of total)

ival-sub!: 12.0ms (17.8% of total)

adjust: 5.0ms (7.4% of total)

bsearch189.0ms (0.5%)

Memory

-55.4MiB live, 201.5MiB allocated; 90ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
85.0ms	14149.61970218951	33914974381245387000.0
93.0ms	-5.756144543711987e-8	-1.1115555087523215e-8

Samples

140.0ms	186×	1	valid
17.0ms	59×	0	valid
5.0ms	8×	2	valid
4.0ms	3×	3	valid

Compiler

Compiled 1 094 to 903 computations (17.5% saved)

Precisions

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

ival-cos: 61.0ms (41.2% of total)

ival-sin: 57.0ms (38.5% of total)

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

adjust: 9.0ms (6.1% of total)

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

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

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

bsearch5.0ms (0.0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	14149.61970218951	33914974381245387000.0
2.0ms	-5.756144543711987e-8	-1.1115555087523215e-8

Compiler

Compiled 1 014 to 873 computations (13.9% saved)

bsearch125.0ms (0.4%)

Memory

1.0MiB live, 143.0MiB allocated; 19ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
109.0ms	2.2334332938717802e-26	14149.61970218951
7.0ms	-5.756144543711987e-8	-1.1115555087523215e-8

Samples

73.0ms	135×	1	valid
22.0ms	309×	0	valid
2.0ms	3×	2	valid
1.0ms	1×	3	valid

Compiler

Compiled 974 to 824 computations (15.4% saved)

Precisions

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

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

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

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

adjust: 6.0ms (9.0% of total)

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

ival-sub!: 2.0ms (3.0% of total)

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

bsearch4.0ms (0.0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	2.2334332938717802e-26	14149.61970218951
2.0ms	-5.756144543711987e-8	-1.1115555087523215e-8

Compiler

Compiled 1 008 to 858 computations (14.9% saved)

bsearch49.0ms (0.1%)

Memory

34.8MiB live, 79.7MiB allocated; 5ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
46.0ms	0.015043476941310866	0.06682098361275798

Samples

37.0ms	75×	1	valid
4.0ms	20×	0	valid
1.0ms	1×	2	valid

Compiler

Compiled 370 to 325 computations (12.2% saved)

Precisions

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

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

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

adjust: 3.0ms (9.0% of total)

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

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

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

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

bsearch77.0ms (0.2%)

Memory

-34.1MiB live, 107.5MiB allocated; 13ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
70.0ms	-126.85089187191534	-1.3739316142848326e-6

Samples

54.0ms	115×	1	valid
5.0ms	24×	0	valid
2.0ms	4×	2	valid
1.0ms	1×	3	valid

Compiler

Compiled 589 to 502 computations (14.8% saved)

Precisions

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

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

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

adjust: 5.0ms (9.5% of total)

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

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

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

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

bsearch100.0ms (0.3%)

Memory

15.4MiB live, 446.0MiB allocated; 36ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
95.0ms	-14.439728964653911	-2.9767607492610046e-6

Samples

71.0ms	112×	1	valid
7.0ms	26×	0	valid
4.0ms	2×	3	valid
2.0ms	4×	2	valid

Compiler

Compiled 463 to 412 computations (11.0% saved)

Precisions

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

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

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

ival-sub!: 11.0ms (15.7% of total)

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

adjust: 6.0ms (8.6% of total)

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

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

bsearch2.0ms (0.0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
2.0ms	-14.439728964653911	-2.9767607492610046e-6

Compiler

Compiled 625 to 475 computations (24.0% saved)

bsearch3.0ms (0.0%)

Memory

-31.2MiB live, 17.5MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.015043476941310866	0.06682098361275798

Compiler

Compiled 580 to 367 computations (36.7% saved)

derivations144.0ms (0.4%)

Memory

-2.3MiB live, 666.7MiB allocated; 20ms collecting garbage

Stop Event

1×

fuel

Samples

33.0ms

512×

valid

Compiler

Compiled 1 004 to 176 computations (82.5% saved)

Precisions

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

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

ival-sub!: 2.0ms (21.2% of total)

adjust: 1.0ms (10.6% of total)

preprocess4.1s (11.7%)

Memory

-1 342.5MiB live, 2 013.4MiB allocated; 6.2s collecting garbage

Samples

3.6s

18 048×

valid

Compiler

Compiled 6 515 to 3 287 computations (49.5% saved)

Precisions

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

ival-mult!: 266.0ms (77.4% of total)

ival-sub!: 54.0ms (15.7% of total)

adjust: 23.0ms (6.7% of total)

end0.0ms (0.0%)

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

start0.0ms (0.0%)

analyze916.0ms (2.6%)

sample8.3s (23.7%)

preprocess52.0ms (0.1%)

series86.0ms (0.2%)

rewrite159.0ms (0.5%)

eval333.0ms (1.0%)

prune119.0ms (0.3%)

series259.0ms (0.7%)

rewrite282.0ms (0.8%)

eval4.5s (12.8%)

prune371.0ms (1.1%)

series176.0ms (0.5%)

rewrite253.0ms (0.7%)

eval5.4s (15.4%)

prune433.0ms (1.2%)

series252.0ms (0.7%)

rewrite285.0ms (0.8%)

eval5.3s (15.0%)

prune314.0ms (0.9%)

regimes2.5s (7.2%)

bsearch189.0ms (0.5%)

bsearch5.0ms (0.0%)

bsearch125.0ms (0.4%)

bsearch4.0ms (0.0%)

bsearch49.0ms (0.1%)

bsearch77.0ms (0.2%)

bsearch100.0ms (0.3%)

bsearch2.0ms (0.0%)

bsearch3.0ms (0.0%)

derivations144.0ms (0.4%)

preprocess4.1s (11.7%)

end0.0ms (0.0%)

Profiling